;--------------------------------------------------------------
; MXT-AP31.ASM
;
REV equ 30
;
; MEXplus Terminal Overlay for Apple ][+ and //e
; (][+ assumes videoterm card)
;--------------------------------------------------------------
; Revision History:
;--------+--------+----------+---------------------------------
;revision| Date | Author | Description
;--------+--------+----------+---------------------------------
; 3.1 | 7/6/87 | Jim Lill | Renamed using current MXT
; | | | convention. Fixed attributes
; | | | take space problem.
; 3.0 | 6/21/86| Jim Lill | Renamed properly with revision
; | | | control. Extensive attribute
; | | | changes. Added IF control for
; | | | assembly of ][+ and //e versions.
; | | | Added fkeys for PCPI-//e
; | | | Tested thoroughly with PCPI
; | | | 2nd hand report Softcard OK
;--------+--------+----------+---------------------------------
;APPLETER| 3/86 | jpl | no revision number. Bug in Code
; | | | DO NOT USE
;--------+--------+----------+---------------------------------
;APLPCPI | 2/86 | jpl | original version derived from
; | | | TVI950.ASM
;--------------------------------------------------------------
; This file must assemble in 384 bytes or less.
;
;
org 01E80H
;
false equ 0
true equ not false
esc equ 1bh
;
;--------------------------------------------------------------
;******************************
plus equ false ;set true for ][+, false for //e
pcpi equ true ;set true for Applicard
;******************************
;--------------------------------------------------------------
;
; ;print title, must be 32 chars
; ;no more, no less
if plus
db 'Apple ][+ ' ;ten characters
endif
;
if not plus
db 'Apple //e ' ;ten characters
endif
;
if pcpi
db 'and Applicard, v' ;sixteen chars.
endif
;
if not pcpi
db 'and Softcard, v' ;sixteen chars.
endif
;
db rev/10+'0','.' ;add revision number, two chars.
db rev MOD 10+'0' ;add rest of rev, one char
db ' ' ;make up the balance for 32 total
db 24 ;# rows
db 80 ;# cols
db 'R' ;Row, column first ("R" or "C")
db 'B' ;Variable, binary x,y ("V" or "B")
db 31 ;Row offset \ Related to top col # and
db 31 ;Col offset / top column #, 13 lines below
db 0 ;XY delay (all delays in milliseconds)
db 0 ;CLS delay
db 0 ;CLREOS delay
db 0 ;CLRBOS delay
db 0 ;CLREOL delay
db 0 ;CLRBOL delay
db 0 ;CLREOL delay
db 'N' ;Y/N Attributes take screen space
db 'Y' ;Y/N Attributes can accumulate
db 'Y' ;Lower case ok
db 'Y' ;Generates control characters (most do)
db 'N' ;ANSI compatible
db 1 ;top row # \ Added to r/c offsets above, 'cause
db 1 ;top col # / that's how Atlantis database works
db 0,0,0 ;rsvd
;
; End of fixed area. The remainder of the record consists
; of variable-length function strings, each terminated in
; a zero. If your terminal doesn't have a particular
; function, its string should be a "DB 0".
;
db esc,30,0 ;home cursor
db esc,'*',0 ;clear scrn
db esc,'=',0 ;xy leadin
db 0 ;xy separator
db 0 ;xy end sequence
db esc,'Y',0 ;clear from cursor to end of screen
db 0 ;clear from start of scrn to cursor
db esc,'T',0 ;clear from cursor to end of line
db 0 ;clear from beginning of line to cursor
db 13,esc,'T',0 ;erase line (synthesized from <cr> & CEOL)
db esc,')',0 ;enter blink mode \ uses reverse video
db esc,'(',0 ;exit blink mode / instead
db esc,')',0 ;enter reverse video
db esc,'(',0 ;exit reverse video
db esc,')',0 ;enter underline mode \ uses reverse video
db esc,'(',0 ;exit underline mode / instead
db 0 ;enter bright-character mode\ don't try to use
db 0 ;exit bright / reverse here
db 0 ;enter dim-character mode \ seems to have
db 0 ;exit dim / no effect
db esc,'(',0 ;all attributes off
;
;keyboard stuff.... Used the familiar Wordstar keys
;
db 5,0 ;cur up key ctrl-E
db 18,0 ;cur dn key ctrl-X
db 4,0 ;cur rt key ctrl-D
db 13,0 ;cur lt key ctrl-S
;
; more codes
;
db 7,0 ;bell
;
if plus ;][+ doesn't support insert line
db 0 ;insert line
endif
;
if not plus
db esc,'E',0 ;insert line on cursor's line
endif
;
db esc,'R',0 ;delete cursor's line
db esc,'Q',0 ;insert char at cursor position
db esc,'W',0 ;delete char at cursor position
db 0 ;cursor on (enabled)
db 0 ;cursor off (disabled)
;
; The following are sequences generated by the terminal's
; function keys. If your terminal doesn't have function
; keys, these should all be "DB 0"
;
if plus
db 0 ;fk 1
db 0 ;fk 2
db 0 ;fk 3
db 0 ;fk 4
db 0 ;fk 5
db 0 ;fk 6
db 0 ;fk 7
db 0 ;fk 8
db 0 ;fk 9
db 0 ;fk 10
;
endif
;
if (not plus) and pcpi
;
; The //e and Applicard combination offers the nicety of the FUNCTION
; key assignments working with the open and closed Apple keys. If you
; want to be more like a TVI-950, make a file with the numeric keys
; assigned as follows and use one of the "Apple" keys to send the
; string. You still can use the numerics with a MEX.KEY file for
; something else, accessed by ESC n
;
db 1,'@',13,0 ;fk 1
db 1,'A',13,0 ;fk 2
db 1,'B',13,0 ;fk 3
db 1,'C',13,0 ;fk 4
db 1,'D',13,0 ;fk 5
db 1,'E',13,0 ;fk 6
db 1,'F',13,0 ;fk 7
db 1,'G',13,0 ;fk 8
db 1,'H',13,0 ;fk 9
db 1,'I',13,0 ;fk 10
endif
;
; Graphics characters (line drawing). If your terminal supports
; a graphic character mode, fill in the first two sequences; each
; time MEX prints a graphics character, it prints the enter-mode
; string, followed by the particular graphics character's string,
; followed by exit-graphics. Some terminals do not have a graph-
; ics or line-drawing mode, but instead use a sequence to print a
; particular graphics character. If that's the case with your
; terminal, define the enter and exit strings as "DB 0".
;
db 0 ;enter graphics mode
db 0 ;exit graphics mode
;
; These are the characters supported by MEX. If your terminal
; doesn't support line-drawing characters, change each of these
; to a "DB 0".
;
db 0 ;vertical bar
db 0 ;horizontal bar
db 0 ;upper left corner character
db 0 ;upper right corner
db 0 ;lower left corner
db 0 ;lower right corner
db 0 ;crossed lines
db 0 ;vbar with right hand extension
db 0 ;vbar with left extension
db 0 ;hbar with upper extension
db 0 ;hbar with lower extension
db 0 ;small dot
db 0 ;solid white block
db 0 ;checkerboard
;
db 0 ;terminal init string
db 0 ;terminal de-init string
;
end
