ROWLEN  equ 3
    MAC ROW
.SCREEN SET {1}
.BEATS  SET {2}
.ARG1   SET {3}
    byte .SCREEN, .BEATS, .ARG1
    ENDM

    MAC PAT
.P      SET {1}
    byte >.P,<.P
    ENDM

PLAQ    equ 0   ;bits 7-6: number of lines - 1, bits 5-0: first line
PLA2    equ 2
PLAS    equ 4
GRAD    equ 6   ;arg: whether to use the stack or mirrorpool variant
BLAK    equ 8

    MAC TIMELINE
Logics
    word PlaqueLogic-1
    word PlaqueSolid-1
    word Delay14-1     ;doesn't matter
    word Delay14-1     ;doesn't matter
    ;word Delay14-1     ;doesn't matter

Kernels
    word PlaqueKernel-1
    word PlaqueKernel-1
    word PlasmaBarKernel-1
    word gradientsKernel-1
    ;word Black-1

Timeline
    PAT Grad
REPEAT  equ *-Timeline
    PAT Propaganda
    byte $80

ONE equ 0
TWO equ %01000000
THR equ %10000000
FOU equ %11000000

    ;ROW BLAK, 16, 0
Grad
    ROW PLAQ, 12,  ONE | 0
    ROW PLAQ, 72, TWO | 1
    ROW PLAQ, 72, THR | 3
    ROW PLAQ, 72, THR | 6
    ROW PLAQ, 72, FOU | 9
    ROW PLAQ, 72, FOU | 13

    ROW PLAQ, 72, THR | 17
    ROW PLAS, 96, $20
    ROW PLAQ, 48, THR | 20

    ROW PLAS, 24, $30
    ROW PLAS, 24, $70
    ROW PLAS, 24, $B0
    ROW PLAS, 24, $01
    ROW PLAS, 24, $40
    ROW PLAS, 24, $60
    ROW PLAS, 24, $80
    ROW PLAS, 24, $A0
    ROW PLAS, 96, 0

    ROW PLAQ, 48, TWO | 23
    ROW PLAQ, 48, TWO | 25

    ROW GRAD, 192, TOPGRAD

    ROW PLAQ, 48, THR | 27

    ROW GRAD, 96, BOTTOMGRAD

    ROW PLAQ, 48, THR | 30

    ROW GRAD, 96, BOUNCEGRAD

    ROW PLAQ, 48, FOU | 33

    ROW PLAQ, 48, THR | 37
    ROW PLAQ, 48, TWO | 40

    byte $80

Propaganda
    ROW PLAS, 23, 0
    ROW PLA2, 1, TWO | 42
    ROW GRAD, 23, TOPGRAD
    ROW PLA2, 1, TWO | 44
    ROW GRAD, 23, BOTTOMGRAD
    ROW PLA2, 1, TWO | 46
    ROW PLAS, 23, $20
    ROW PLA2, 1, THR | 48
    byte $80

    ENDM