acme/examples/me/vars.a

125 lines
3.3 KiB
Plaintext
Raw Normal View History

;ACME 0.94.4
; Vermerk:
!text "MacEdit was written by Mac Bacon in 1994-97."
!text " This is Freeware !"
; Variablen:
stck !byte 0 ; Stackbuffer
nmibuf !word 0 ; NMI-Buffer
idtext !text "MacEdV0" ; RAM-Kennung
scratch !byte "s" ; DOS-String
dospre !text "0:"
dosname !text "-Anleitung .txt,p," ; Default
dosmode !text "r"
filepara !byte 22, lf, lf, 8
!word dospre
killpara !byte 19, 15, 15, 8
!word scratch
idfile !text "FormatVersion1.0"
; Farben:
; 2rufRGBI-Format
clrcrsr !byte %##.##..# ; Cursor
clrback !byte %........ ; Screen (xxxxRGBI-Format)
clraktv !byte %#...###. ; Aktive Flags
clrinak !byte %#......# ; Inaktive
clrmenu !byte %##..##.# ; Menu
clrmenu1 !byte %#...#### ; aktives Menu
clraktl !byte %##..#### ; Menupunkt
clrboxs !byte %#....### ; Menuboxen
!byte %#....#.# ; Dialogboxen
!byte %#..##..# ; Warnungen
; Vars
bank !byte 0 ; Bankbuffer
memin !word 0 ; Startaddy Vektoren
txts !word 0 ; Startaddy Text
unnamed !byte TRUE ; ist Text benannt ?
changes !byte FALSE ; Sind Changes saved ?
nwfrm !byte FALSE ; neues Bild ?
blockflag !byte FALSE ; Block definiert ?
wrapflag !byte TRUE ; PARWing ?
esca !byte TRUE ; AutoInsert ?
updatewbi !byte FALSE ; Flag-Redraw nötig ?
repeatedtry !byte FALSE ; Schon früher gestartet ?
loadflag !byte 0 ; 0 = LOAD (/MERGE)
txtname !text "unbenannt .txt"
mrgname !text "merge .txt"
newname !text "unbenannt .txt"
lodname !text "unbenannt .txt"
xindex !byte 0 ; Index-Puffer
; Folgende Vars werden per x indiziert
SCR = 0 ; x-Wert
scrx !byte 0 ; Display
scry !word 0
ANF = 3 ; x-Wert
anfx !byte 0 ; Blockstart
anfy !word 0
END = 6 ; x-Wert
endx !byte 0 ; Ende
endy !word 0
POS = 9 ; x-Wert
posx !byte 0 ; Cursor
posy !word 0
TMP = 12 ; x-Wert
tmpx !byte 0 ; temp
tmpy !word 0
ZZA = 15 ; x-Wert
llen !byte preflen ; Zeilenlaenge
zzan !word 0 ; vorhandene Zeilen
ZZB = 18 ; x-Wert
byte !byte 0 ; akt. Zeichen
zzbe !word 0 ; benutzte Zeilen
WRP = 21 ; x-Wert
wrpx !byte 0 ; Wrap
wrpy !word 0
PRW = 24 ; x-Wert
prwx !byte 0 ; Parw
prwy !word 0
; Tabs:
etab ; ESC-Jumps
!word ESC_at, ESC_a, ESC_b, ESC_c
!word ESC_d, 0, 0, ESC_g
!word ESC_h, ESC_i, ESC_j, ESC_k
!word 0, 0, 0, ESC_o
!word ESC_p, ESC_q, 0, 0
!word ESC_t, 0, 0, 0
!word 0, 0, 0, 0
!word 0, 0, 0, 0
ctab ; Command-Jumps 1. Achtel
!word 0, 0, F_un, F_menu
!word 0, F_c, 0, F_bell
!word 0, F_tab, F_lfeed, 0
!word F_ffeed, F_cr, F_text, F_fn
!word 0, F_gcd, F_rn, F_home
!word F_dcl, F_sf, F_sk, F_su
!word F_st, F_sw, F_sl, F_esc
!word F_c, F_gcr, F_c, F_c
; 5. Achtel
!word F_dir, F_c, F_uf, F_fbox
!word F_hlp, F_f, F_f, F_f
!word F_f, F_f, F_f, F_f
!word F_f, F_cs, F_graphic, F_ff
!word F_c, F_gcu, F_rf, F_gsot
!word F_insert, F_c, F_c, F_c
!word F_c, F_c, F_c, F_c
!word F_c, F_gcl, F_c, F_c
; 8. Achtel
!word F_bttnf, F_gosys, 0, 0
!word F_info, F_f, F_f, F_f
!word F_f, F_f, F_f, F_f
!word F_f, 0, F_geol, F_print
!word F_glu, F_gau, F_scrnu, F_geot
!word F_dword, F_save, F_saveas, F_rnmtxt
!word F_gtl, F_fmtl, F_fmtr, F_fmtm
!word F_fmtb, F_gwl, F_gpu, 0
; 4. Achtel
!word F_bttnn, F_goout, 0, 0
!word F_mode, 0, 0, 0
!word 0, 0, 0, 0
!word 0, 0, F_gsol, F_new
!word F_gld, F_gad, F_scrnd, F_ahome
!word F_dcr, F_loadas, F_mergeas, F_find
!word F_gtr, F_cut, F_copy, F_paste
!word F_move, F_gwr, F_gpd, F_middle