Jeśli chcesz wziąć udział w dyskusjach na forum - zaloguj się. Jeżeli nie masz loginu - poproś o członkostwo.
Vanilla 1.1.4 jest produktem Lussumo. Więcej informacji: Dokumentacja, Forum.
git status
On branch master
Your branch is up to date with 'origin/master'.
Changes not staged for commit:
modified: src/ANTIC.ACT
modified: src/MAIN.ACT
~/a8-action-scramble$ git commit -am "new look proposal by Kaz"
[master 7f80966] new look proposal by Kaz
2 files changed, 9 insertions(+), 10 deletions(-)
~/a8-action-scramble$ git push
Counting objects: 5, done.
Delta compression using up to 4 threads.
Compressing objects: 100% (5/5), done.
Writing objects: 100% (5/5), 513 bytes | 513.00 KiB/s, done.
Total 5 (delta 4), reused 0 (delta 0)
remote: Resolving deltas: 100% (4/4), completed with 4 local objects.
To ->link<-
d5bea53..7f80966 master -> master
BYTE ARRAY
DL=[
$70 ; EMPTY ROW
$42 $97 CBMSB ; FIRST TEXT ROW (GR.0)
$D2 0 0 ; STARTSCREEN (GR.0) WITH HSCROL AND DLI
$12 $92 $12 $92 $12 $92 $12 $92 $12 $92 $12 $12
$12 $12 $12 $12 $12 $92 $92 $92 $92 $92 $92 $92 2
$70 ; EMPTY ROW
$41 $00 CBMSB ; JUMP TO BEGINNING OF DL
],
DLIA=[
PHA
LDAI $8A WSYNC
STA $18 $D0 CLC ADCI 2 WSYNC
STA $18 $D0 LDA $28 CBMSB WSYNC
STA $18 $D0 DEC $28 CBMSB DEC $28 CBMSB
CMPI $80 BNE $17 LDAI $66 STA 0 2 LDAI CBMSB STA 1 2 LDAI $8A STA $28 CBMSB LDAI 0 WSYNC
STA $18 $D0
PLA RTI
],
DLIB=[
PHA
LDAI $E WSYNC
STA $17 $D0 DEC $68 CBMSB DEC $68 CBMSB
CMPI $2 BNE $17 LDAI $26 STA 0 2 LDAI CBMSB STA 1 2 LDAI $E STA $68 CBMSB LDAI $E WSYNC
STA $17 $D0
PLA RTI
]
git commit -am "new look proposal by Pirx"
[master 6d58e40] new look proposal by Pirx
3 files changed, 14 insertions(+), 8 deletions(-)
exomizer sfx sys -n -t 168 -o SCRAMBLE.XEX memdump.dat
Paw:
(...) białkowym kompilatoremMq:
zbiegiem okoliczności jakiś miesiąc temu wpadłem niezależnie na niemal identyczny pomysł tego zmiękczenia barów:-).BYTE ARRAY
SET $E=CHARSET
FONTS=[...]
;---------------------------------------------------------------
; LOAD (OR SAVE) BINARY DATA TO THE INDICATED ADDRESS
; M=4 LOAD, M=8 SAVE
;---------------------------------------------------------------
PROC LOAD(CARD FILE,STARTADDR,NBYTES BYTE M)
CLOSE(2) OPEN(2,FILE,M,128)
IF M=4 THEN POKE($362,7)
ELSE POKE($362,11) FI
POKEC($364,STARTADDR) POKEC($368,NBYTES)
[$A2$20$20$56$E4$85$A3] CLOSE(2)
RETURN
DEFINE
RASTERBARON="$A9$E$8D$0A$D4$8D$1A$D0",
RASTERBAROFF="$A9$0$8D$1A$D0"
;----------------
; Page Zero defs
;----------------
; Alloc/Free defs, also used by compiler
AFBASE = $80
AFLAST = $82
AFCUR = $84
AFSIZE = $86
AFBEST = $88
AFBSZE = $8A
;
SP = $8C
CHOFF = $8D
LNUM = $8E
CURPROC = $8E ; 2 bytes
DIRTY = $8F
TOP = $90 ; -> top line
BOT = $92 ; -> bottom line
CUR = $94 ; -> current line
X = $96 ; don't use in comp.
Y = $97 ; don't use in comp.
NLINES = $98
CHAN = $98 ; current input file
YTOP = $99
INDENT = $9A
BUF = $9B ; -> edit buf
INSERT = $9D ; insert/replace flag
DELNXT = $9E ; ->, USED BY LEX
;
ARGS = $A0
ARG0 = $A0
ARG1 = $A1
ARG2 = $A2
ARG3 = $A3
ARG4 = $A4
ARG5 = $A5
ARG6 = $A6
ARG7 = $A7
ARG8 = $A8
ARG9 = $A9
ARG10 = $AA
ARG11 = $AB
ARG12 = $AC
ARG13 = $AD
ARG14 = $AE
ARG15 = $AF
;
DIRTYF = $C3
;
PROC DRAWSHIP()
BYTE SHIPTYPE
SHIPTYPE=RANDOM&30
IF SHIPTYPE>8 THEN RET FI
ROCKETBODY=SHIPSTABLE(SHIPTYPE)
ROCKETHEAD=SHIPSTABLE(SHIPTYPE+1)
RET
NMIEN=$C0 ; TURN ON NON MASKABLE INTERRUPT %110XXXXX
SDMCTL=$2E ; TURN ON ANTIC %XX101110
SET $E=DLIAADDR
DLIA=[
PHA
LDAZ $56 WSYNC
STA $18 $D0 PHA CLC ADCI 2 WSYNC
STA $18 $D0 PLA WSYNC
STA $18 $D0 DECZ $56 DECZ $56 CMPI $80 BNE $16
LDAI $E STAZ $56 LDAI $A0 STA 0 2 LDAI DLIMSB STA 1 2 LDAI 0 WSYNC
STA $18 $D0
PLA RTI
]
SET $E=DLIAADDR
DLIA=[
PHA
LDAZ $56 WSYNC
STA $18 $D0 CLC ADCI 2 WSYNC
STA $18 $D0 LDAZ $56 WSYNC
STA $18 $D0 DECZ $56 DECZ $56 CMPI $80 BNE $16
LDAI $E STAZ $56 LDAI $A0 STA 0 2 LDAI DLIMSB STA 1 2 LDAI 0 WSYNC
STA $18 $D0
PLA RTI
]
DEFINE
DLADDR="$5000",
STARTSCREEN="$8000",
RET="[69]"
BYTE ARRAY
SCREEN=STARTSCREEN,
TEXT(48)
CARD SDLSTL=$230
SET $E=DLADDR
PROC DL=*()
[
$70 ; EMPTY ROW
$42 TEXT ; FIRST TEXT ROW (GR.0)
$D2 SCREEN^ ; STARTSCREEN (GR.0) WITH HSCROL AND DLI
$12 $92 $12 $92 $12 $92 $12 $92 $12 $92 $12 $12
$12 $12 $12 $12 $12 $92 $92 $92 $92 $92 $92 $92
$70 $70 ; TWO EMPTY ROWS
$41 DL ; JUMP TO BEGINNING OF DL
]
PROC INIT()
SDLSTL=DL
RET
DEFINE
DLIAADDR="$8850",
DLIBADDR="$88A0"
CARD VDSLST=$200
SET $E=DLIAADDR
PROC DLIA=*()[
PHA
LDAZ $56 WSYNC
STA $18 $D0 CLC ADCI 2 WSYNC
STA $18 $D0 LDAZ $56 WSYNC
STA $18 $D0 DECZ $56 DECZ $56 CMPI $80 BNE $16
LDAI $E STAZ $56
] VDSLST=DLIBADDR [
LDAI 0 WSYNC STA $18 $D0
PLA RTI
]
SET $E=DLIBADDR
PROC DLIB=*()[
PHA
LDAZ $56 WSYNC
STA $17 $D0 DECZ $56 DECZ $56
CMPI $2 BNE $16 LDAI $8A STAZ $56
] VDSLST=DLIAADDR [
LDAI $E WSYNC STA $17 $D0
PLA RTI
]
SET $E=DLIAADDR
PROC DLIA=*()[
PHA
LDAZ $56 WSYNC
STA $18 $D0 ADCI 2 WSYNC
STA $18 $D0 LDAZ $56 WSYNC
STA $18 $D0 SEC SBCI 2 STAZ $56 CMPI $7E BNE $16
LDAI $E STAZ $56
] VDSLST=DLIBADDR [
LDAI 0 WSYNC STA $18 $D0
PLA RTI
]
%1111 %0011
%1110 %0010
%1101 %0001
%1100 %0000
