Compare commits
No commits in common. "886def1a7118a223e2d5a75655ea9c4461ce06d0" and "809b25b1ac5a9e7b236b207d8d0e04579c2b055e" have entirely different histories.
886def1a71
...
809b25b1ac
@ -1,23 +0,0 @@
|
||||
(require :uiop)
|
||||
|
||||
(defun input-string () (uiop:read-file-string "../../../data/2015/1/input.txt"))
|
||||
|
||||
(defun floor-from-next-char (floor char)
|
||||
(if (char= #\( char) (1+ floor) (if (char= #\) char) (1- floor) floor)))
|
||||
|
||||
(defun floor-from-string (string)
|
||||
(reduce #'floor-from-next-char string :initial-value 0))
|
||||
|
||||
(defun steps-from-string (string)
|
||||
(cdr (reduce (lambda (a b)
|
||||
(let ((floor (car a))
|
||||
(steps (cdr a)))
|
||||
(if (> 0 floor) (cons floor steps)
|
||||
(cons (floor-from-next-char floor b) (1+ steps)))))
|
||||
string :initial-value (cons 0 0))))
|
||||
|
||||
(defun part-1 () (format t "Part 1: ~a" (floor-from-string (input-string))))
|
||||
(defun part-2 () (format t "Part 2: ~a" (steps-from-string (input-string))))
|
||||
(defun solution () (part-1) (terpri) (part-2) (terpri))
|
||||
|
||||
(solution)
|
||||
@ -1,72 +0,0 @@
|
||||
(require :uiop)
|
||||
|
||||
(defun input-string () (string-trim '(#\newline) (uiop:read-file-string "../../../data/2015/2/input.txt")))
|
||||
|
||||
(defun input-string-list () (uiop:split-string (input-string) :separator (list #\linefeed)))
|
||||
|
||||
(defun string-to-dimension-list (string)
|
||||
(mapcar #'parse-integer
|
||||
(uiop:split-string string :separator (list #\x))))
|
||||
|
||||
(defun dimension-list-to-surface-area (dimension-list)
|
||||
(let ((length (first dimension-list))
|
||||
(width (second dimension-list))
|
||||
(height (third dimension-list)))
|
||||
(+ (* 2 length width) (* 2 length height) (* 2 width height))))
|
||||
|
||||
(defun dimension-list-to-slack (dimension-list)
|
||||
(let ((length (first dimension-list))
|
||||
(width (second dimension-list))
|
||||
(height (third dimension-list)))
|
||||
(let ((top (* length width))
|
||||
(front (* width height))
|
||||
(side (* length height)))
|
||||
(min top front side))))
|
||||
|
||||
(defun dimension-list-to-bow (dimension-list)
|
||||
(let ((length (first dimension-list))
|
||||
(width (second dimension-list))
|
||||
(height (third dimension-list)))
|
||||
(* length width height)))
|
||||
|
||||
(defun dimension-list-to-wrap-ribbon (dimension-list)
|
||||
(let ((length (first dimension-list))
|
||||
(width (second dimension-list))
|
||||
(height (third dimension-list)))
|
||||
(let ((top-perim (* 2 (+ length width)))
|
||||
(front-perim (* 2 (+ width height)))
|
||||
(side-perim (* 2 (+ length height))))
|
||||
(min top-perim front-perim side-perim))))
|
||||
|
||||
(defun dimension-list-to-ribbon (dimension-list)
|
||||
(+ (dimension-list-to-wrap-ribbon dimension-list) (dimension-list-to-bow dimension-list)))
|
||||
|
||||
(defun dimension-list-to-paper (dimension-list)
|
||||
(+ (dimension-list-to-surface-area dimension-list) (dimension-list-to-slack dimension-list)))
|
||||
|
||||
(defun string-to-paper (string)
|
||||
(dimension-list-to-paper (string-to-dimension-list string)))
|
||||
|
||||
(defun string-to-ribbon (string)
|
||||
(dimension-list-to-ribbon (string-to-dimension-list string)))
|
||||
|
||||
(defun part-1 ()
|
||||
(reduce (lambda (sfp string)
|
||||
(+ (string-to-paper string) sfp))
|
||||
(input-string-list)
|
||||
:initial-value 0))
|
||||
|
||||
(defun part-2 ()
|
||||
(reduce (lambda (sfp string)
|
||||
(+ (string-to-ribbon string) sfp))
|
||||
(input-string-list)
|
||||
:initial-value 0))
|
||||
|
||||
(defun solution ()
|
||||
(format t "Part 1: ~a" (part-1))
|
||||
(terpri)
|
||||
(format t "Part 2: ~a" (part-2))
|
||||
(terpri))
|
||||
|
||||
(solution)
|
||||
|
||||
4
gb/.gitignore
vendored
4
gb/.gitignore
vendored
@ -1,4 +0,0 @@
|
||||
bgb.exe
|
||||
bgb.ini
|
||||
*.gb
|
||||
*.o
|
||||
@ -1,173 +0,0 @@
|
||||
INCLUDE "lib/hardware.inc"
|
||||
INCLUDE "lib/macros.inc"
|
||||
|
||||
SECTION "VBlank Interrupt", ROM0[$40]
|
||||
jp VBlankHandler
|
||||
|
||||
SECTION "Header", ROM0[$100]
|
||||
jp EntryPoint
|
||||
ds $150 - @, 0 ; Make room for the header
|
||||
|
||||
SECTION "Init", ROM0[$150]
|
||||
EntryPoint:
|
||||
StartInit
|
||||
|
||||
ClearScreen
|
||||
ClearOAM
|
||||
LoadTiles
|
||||
|
||||
MemClear current_frame, 2
|
||||
MemClear current_floor, 2
|
||||
MemClear first_basement_floor, 2
|
||||
MemClear done_flag, 1
|
||||
|
||||
;; Initialize input_index
|
||||
ld bc, input
|
||||
ld a, b
|
||||
ld [input_index], a
|
||||
ld a, c
|
||||
ld [input_index + 1], a
|
||||
|
||||
FinishInit
|
||||
ei
|
||||
|
||||
CheckInput:
|
||||
ld a, [input_index]
|
||||
ld h, a
|
||||
ld a, [input_index + 1]
|
||||
ld l, a
|
||||
ld a, [hl]
|
||||
|
||||
cp a, "("
|
||||
jr z, GoingUp
|
||||
cp a, ")"
|
||||
jr z, GoingDown
|
||||
jr GoingNowhere
|
||||
GoingUp:
|
||||
call IncrementCurrentFloor
|
||||
jr GoingNowhere
|
||||
GoingDown:
|
||||
ld a, [current_floor]
|
||||
ld b, a
|
||||
ld a, [current_floor + 1]
|
||||
and a, b
|
||||
call z, SaveBasementFloor
|
||||
|
||||
call DecrementCurrentFloor
|
||||
GoingNowhere:
|
||||
IncrementWord input_index
|
||||
|
||||
ld de, input_end
|
||||
ld a, [input_index]
|
||||
cp a, d
|
||||
jr nz, CheckInput
|
||||
|
||||
ld a, [input_index + 1]
|
||||
cp a, e
|
||||
jr nz, CheckInput
|
||||
|
||||
ld a, 1
|
||||
ld [done_flag], a
|
||||
|
||||
halt
|
||||
nop
|
||||
jr Done
|
||||
|
||||
Done:
|
||||
halt
|
||||
nop
|
||||
jr Done
|
||||
|
||||
IncrementCurrentFloor:
|
||||
ld a, [current_floor]
|
||||
ld b, a
|
||||
ld a, [current_floor + 1]
|
||||
ld c, a
|
||||
|
||||
inc bc
|
||||
|
||||
ld a, b
|
||||
ld [current_floor], a
|
||||
ld a, c
|
||||
ld [current_floor + 1], a
|
||||
|
||||
ret
|
||||
|
||||
DecrementCurrentFloor:
|
||||
ld a, [current_floor]
|
||||
ld b, a
|
||||
ld a, [current_floor + 1]
|
||||
ld c, a
|
||||
|
||||
dec bc
|
||||
|
||||
ld a, b
|
||||
ld [current_floor], a
|
||||
ld a, c
|
||||
ld [current_floor + 1], a
|
||||
|
||||
ret
|
||||
|
||||
SaveBasementFloor:
|
||||
ld a, [first_basement_floor]
|
||||
ld b, a
|
||||
ld a, [first_basement_floor + 1]
|
||||
or a, b
|
||||
ret nz
|
||||
|
||||
ld a, [input_index]
|
||||
ld [first_basement_floor], a
|
||||
ld a, [input_index + 1]
|
||||
ld [first_basement_floor + 1], a
|
||||
|
||||
ret
|
||||
|
||||
VBlankHandler:
|
||||
push AF
|
||||
push BC
|
||||
push DE
|
||||
push HL
|
||||
|
||||
IncrementFrameCount
|
||||
|
||||
PrintString part_1_string, 0, 1
|
||||
PrintString part_2_string, 0, 2
|
||||
;; PrintByteHex current_frame, 0, 0
|
||||
;; PrintByte current_frame, 0, 1
|
||||
;; PrintByteHex current_floor, 0, 2
|
||||
;; PrintByteHex current_floor + 1, 2, 2
|
||||
ld a, [done_flag]
|
||||
cp a, 1
|
||||
jp nz, NotDone
|
||||
PrintString done_string, 3, 3
|
||||
PrintByte current_floor + 1, 8, 1
|
||||
;; PrintByte first_basement_floor + 1, 8, 2
|
||||
|
||||
NotDone:
|
||||
pop HL
|
||||
pop DE
|
||||
pop BC
|
||||
pop AF
|
||||
reti
|
||||
|
||||
SECTION "High RAM", HRAM
|
||||
current_floor: DS 2
|
||||
first_basement_floor: DS 2
|
||||
done_flag: DS 1
|
||||
|
||||
SECTION "Input", ROM0
|
||||
input:
|
||||
INCBIN "../data/2015/1/input.txt"
|
||||
input_end:
|
||||
|
||||
done_string:
|
||||
db "Done", 0
|
||||
done_string_end:
|
||||
|
||||
part_1_string: db "Part 1: "
|
||||
part_1_string_end:
|
||||
|
||||
part_2_string: db "Part 2: "
|
||||
part_2_string_end:
|
||||
|
||||
INCLUDE "lib/tiles.asm"
|
||||
23
gb/bin/run
23
gb/bin/run
@ -1,23 +0,0 @@
|
||||
#!/usr/bin/env bash
|
||||
|
||||
year=$1
|
||||
day=$2
|
||||
|
||||
mkdir -p $year/$day
|
||||
source_file=$(ls $year/$day/*.asm)
|
||||
|
||||
if [[ -z $source_file ]] ; then
|
||||
echo "No asm source file found in $year/$day"
|
||||
exit 1
|
||||
fi
|
||||
|
||||
set -e
|
||||
|
||||
rgbgfx -o lib/text.2bpp lib/text.png
|
||||
|
||||
rgbasm -o $year/$day/main.o $source_file -H -Wall -E
|
||||
rgblink -o $year/$day/main.gb $year/$day/main.o
|
||||
rgbfix -v -p 0xFF $year/$day/main.gb
|
||||
|
||||
wine bin/bgb.exe $year/$day/main.gb
|
||||
|
||||
@ -1,922 +0,0 @@
|
||||
;*
|
||||
;* Gameboy Hardware definitions
|
||||
;*
|
||||
;* Based on Jones' hardware.inc
|
||||
;* And based on Carsten Sorensen's ideas.
|
||||
;*
|
||||
;* Rev 1.1 - 15-Jul-97 : Added define check
|
||||
;* Rev 1.2 - 18-Jul-97 : Added revision check macro
|
||||
;* Rev 1.3 - 19-Jul-97 : Modified for RGBASM V1.05
|
||||
;* Rev 1.4 - 27-Jul-97 : Modified for new subroutine prefixes
|
||||
;* Rev 1.5 - 15-Aug-97 : Added _HRAM, PAD, CART defines
|
||||
;* : and Nintendo Logo
|
||||
;* Rev 1.6 - 30-Nov-97 : Added rDIV, rTIMA, rTMA, & rTAC
|
||||
;* Rev 1.7 - 31-Jan-98 : Added _SCRN0, _SCRN1
|
||||
;* Rev 1.8 - 15-Feb-98 : Added rSB, rSC
|
||||
;* Rev 1.9 - 16-Feb-98 : Converted I/O registers to $FFXX format
|
||||
;* Rev 2.0 - : Added GBC registers
|
||||
;* Rev 2.1 - : Added MBC5 & cart RAM enable/disable defines
|
||||
;* Rev 2.2 - : Fixed NR42,NR43, & NR44 equates
|
||||
;* Rev 2.3 - : Fixed incorrect _HRAM equate
|
||||
;* Rev 2.4 - 27-Apr-13 : Added some cart defines (AntonioND)
|
||||
;* Rev 2.5 - 03-May-15 : Fixed format (AntonioND)
|
||||
;* Rev 2.6 - 09-Apr-16 : Added GBC OAM and cart defines (AntonioND)
|
||||
;* Rev 2.7 - 19-Jan-19 : Added rPCMXX (ISSOtm)
|
||||
;* Rev 2.8 - 03-Feb-19 : Added audio registers flags (Álvaro Cuesta)
|
||||
;* Rev 2.9 - 28-Feb-20 : Added utility rP1 constants
|
||||
;* Rev 3.0 - 27-Aug-20 : Register ordering, byte-based sizes, OAM additions, general cleanup (Blitter Object)
|
||||
;* Rev 4.0 - 03-May-21 : Updated to use RGBDS 0.5.0 syntax, changed IEF_LCDC to IEF_STAT (Eievui)
|
||||
|
||||
IF __RGBDS_MAJOR__ == 0 && __RGBDS_MINOR__ < 5
|
||||
FAIL "This version of 'hardware.inc' requires RGBDS version 0.5.0 or later."
|
||||
ENDC
|
||||
|
||||
; If all of these are already defined, don't do it again.
|
||||
|
||||
IF !DEF(HARDWARE_INC)
|
||||
DEF HARDWARE_INC EQU 1
|
||||
|
||||
MACRO rev_Check_hardware_inc
|
||||
;NOTE: REVISION NUMBER CHANGES MUST BE ADDED
|
||||
;TO SECOND PARAMETER IN FOLLOWING LINE.
|
||||
IF \1 > 4.0 ;PUT REVISION NUMBER HERE
|
||||
WARN "Version \1 or later of 'hardware.inc' is required."
|
||||
ENDC
|
||||
ENDM
|
||||
|
||||
DEF _VRAM EQU $8000 ; $8000->$9FFF
|
||||
DEF _VRAM8000 EQU _VRAM
|
||||
DEF _VRAM8800 EQU _VRAM+$800
|
||||
DEF _VRAM9000 EQU _VRAM+$1000
|
||||
DEF _SCRN0 EQU $9800 ; $9800->$9BFF
|
||||
DEF _SCRN1 EQU $9C00 ; $9C00->$9FFF
|
||||
DEF _SRAM EQU $A000 ; $A000->$BFFF
|
||||
DEF _RAM EQU $C000 ; $C000->$CFFF / $C000->$DFFF
|
||||
DEF _RAMBANK EQU $D000 ; $D000->$DFFF
|
||||
DEF _OAMRAM EQU $FE00 ; $FE00->$FE9F
|
||||
DEF _IO EQU $FF00 ; $FF00->$FF7F,$FFFF
|
||||
DEF _AUD3WAVERAM EQU $FF30 ; $FF30->$FF3F
|
||||
DEF _HRAM EQU $FF80 ; $FF80->$FFFE
|
||||
|
||||
; *** MBC5 Equates ***
|
||||
|
||||
DEF rRAMG EQU $0000 ; $0000->$1fff
|
||||
DEF rROMB0 EQU $2000 ; $2000->$2fff
|
||||
DEF rROMB1 EQU $3000 ; $3000->$3fff - If more than 256 ROM banks are present.
|
||||
DEF rRAMB EQU $4000 ; $4000->$5fff - Bit 3 enables rumble (if present)
|
||||
|
||||
|
||||
;***************************************************************************
|
||||
;*
|
||||
;* Custom registers
|
||||
;*
|
||||
;***************************************************************************
|
||||
|
||||
; --
|
||||
; -- P1 ($FF00)
|
||||
; -- Register for reading joy pad info. (R/W)
|
||||
; --
|
||||
DEF rP1 EQU $FF00
|
||||
|
||||
DEF P1F_5 EQU %00100000 ; P15 out port, set to 0 to get buttons
|
||||
DEF P1F_4 EQU %00010000 ; P14 out port, set to 0 to get dpad
|
||||
DEF P1F_3 EQU %00001000 ; P13 in port
|
||||
DEF P1F_2 EQU %00000100 ; P12 in port
|
||||
DEF P1F_1 EQU %00000010 ; P11 in port
|
||||
DEF P1F_0 EQU %00000001 ; P10 in port
|
||||
|
||||
DEF P1F_GET_DPAD EQU P1F_5
|
||||
DEF P1F_GET_BTN EQU P1F_4
|
||||
DEF P1F_GET_NONE EQU P1F_4 | P1F_5
|
||||
|
||||
|
||||
; --
|
||||
; -- SB ($FF01)
|
||||
; -- Serial Transfer Data (R/W)
|
||||
; --
|
||||
DEF rSB EQU $FF01
|
||||
|
||||
|
||||
; --
|
||||
; -- SC ($FF02)
|
||||
; -- Serial I/O Control (R/W)
|
||||
; --
|
||||
DEF rSC EQU $FF02
|
||||
|
||||
|
||||
; --
|
||||
; -- DIV ($FF04)
|
||||
; -- Divider register (R/W)
|
||||
; --
|
||||
DEF rDIV EQU $FF04
|
||||
|
||||
|
||||
; --
|
||||
; -- TIMA ($FF05)
|
||||
; -- Timer counter (R/W)
|
||||
; --
|
||||
DEF rTIMA EQU $FF05
|
||||
|
||||
|
||||
; --
|
||||
; -- TMA ($FF06)
|
||||
; -- Timer modulo (R/W)
|
||||
; --
|
||||
DEF rTMA EQU $FF06
|
||||
|
||||
|
||||
; --
|
||||
; -- TAC ($FF07)
|
||||
; -- Timer control (R/W)
|
||||
; --
|
||||
DEF rTAC EQU $FF07
|
||||
|
||||
DEF TACF_START EQU %00000100
|
||||
DEF TACF_STOP EQU %00000000
|
||||
DEF TACF_4KHZ EQU %00000000
|
||||
DEF TACF_16KHZ EQU %00000011
|
||||
DEF TACF_65KHZ EQU %00000010
|
||||
DEF TACF_262KHZ EQU %00000001
|
||||
|
||||
|
||||
; --
|
||||
; -- IF ($FF0F)
|
||||
; -- Interrupt Flag (R/W)
|
||||
; --
|
||||
DEF rIF EQU $FF0F
|
||||
|
||||
|
||||
; --
|
||||
; -- AUD1SWEEP/NR10 ($FF10)
|
||||
; -- Sweep register (R/W)
|
||||
; --
|
||||
; -- Bit 6-4 - Sweep Time
|
||||
; -- Bit 3 - Sweep Increase/Decrease
|
||||
; -- 0: Addition (frequency increases???)
|
||||
; -- 1: Subtraction (frequency increases???)
|
||||
; -- Bit 2-0 - Number of sweep shift (# 0-7)
|
||||
; -- Sweep Time: (n*7.8ms)
|
||||
; --
|
||||
DEF rNR10 EQU $FF10
|
||||
DEF rAUD1SWEEP EQU rNR10
|
||||
|
||||
DEF AUD1SWEEP_UP EQU %00000000
|
||||
DEF AUD1SWEEP_DOWN EQU %00001000
|
||||
|
||||
|
||||
; --
|
||||
; -- AUD1LEN/NR11 ($FF11)
|
||||
; -- Sound length/Wave pattern duty (R/W)
|
||||
; --
|
||||
; -- Bit 7-6 - Wave Pattern Duty (00:12.5% 01:25% 10:50% 11:75%)
|
||||
; -- Bit 5-0 - Sound length data (# 0-63)
|
||||
; --
|
||||
DEF rNR11 EQU $FF11
|
||||
DEF rAUD1LEN EQU rNR11
|
||||
|
||||
|
||||
; --
|
||||
; -- AUD1ENV/NR12 ($FF12)
|
||||
; -- Envelope (R/W)
|
||||
; --
|
||||
; -- Bit 7-4 - Initial value of envelope
|
||||
; -- Bit 3 - Envelope UP/DOWN
|
||||
; -- 0: Decrease
|
||||
; -- 1: Range of increase
|
||||
; -- Bit 2-0 - Number of envelope sweep (# 0-7)
|
||||
; --
|
||||
DEF rNR12 EQU $FF12
|
||||
DEF rAUD1ENV EQU rNR12
|
||||
|
||||
|
||||
; --
|
||||
; -- AUD1LOW/NR13 ($FF13)
|
||||
; -- Frequency low byte (W)
|
||||
; --
|
||||
DEF rNR13 EQU $FF13
|
||||
DEF rAUD1LOW EQU rNR13
|
||||
|
||||
|
||||
; --
|
||||
; -- AUD1HIGH/NR14 ($FF14)
|
||||
; -- Frequency high byte (W)
|
||||
; --
|
||||
; -- Bit 7 - Initial (when set, sound restarts)
|
||||
; -- Bit 6 - Counter/consecutive selection
|
||||
; -- Bit 2-0 - Frequency's higher 3 bits
|
||||
; --
|
||||
DEF rNR14 EQU $FF14
|
||||
DEF rAUD1HIGH EQU rNR14
|
||||
|
||||
|
||||
; --
|
||||
; -- AUD2LEN/NR21 ($FF16)
|
||||
; -- Sound Length; Wave Pattern Duty (R/W)
|
||||
; --
|
||||
; -- see AUD1LEN for info
|
||||
; --
|
||||
DEF rNR21 EQU $FF16
|
||||
DEF rAUD2LEN EQU rNR21
|
||||
|
||||
|
||||
; --
|
||||
; -- AUD2ENV/NR22 ($FF17)
|
||||
; -- Envelope (R/W)
|
||||
; --
|
||||
; -- see AUD1ENV for info
|
||||
; --
|
||||
DEF rNR22 EQU $FF17
|
||||
DEF rAUD2ENV EQU rNR22
|
||||
|
||||
|
||||
; --
|
||||
; -- AUD2LOW/NR23 ($FF18)
|
||||
; -- Frequency low byte (W)
|
||||
; --
|
||||
DEF rNR23 EQU $FF18
|
||||
DEF rAUD2LOW EQU rNR23
|
||||
|
||||
|
||||
; --
|
||||
; -- AUD2HIGH/NR24 ($FF19)
|
||||
; -- Frequency high byte (W)
|
||||
; --
|
||||
; -- see AUD1HIGH for info
|
||||
; --
|
||||
DEF rNR24 EQU $FF19
|
||||
DEF rAUD2HIGH EQU rNR24
|
||||
|
||||
|
||||
; --
|
||||
; -- AUD3ENA/NR30 ($FF1A)
|
||||
; -- Sound on/off (R/W)
|
||||
; --
|
||||
; -- Bit 7 - Sound ON/OFF (1=ON,0=OFF)
|
||||
; --
|
||||
DEF rNR30 EQU $FF1A
|
||||
DEF rAUD3ENA EQU rNR30
|
||||
|
||||
|
||||
; --
|
||||
; -- AUD3LEN/NR31 ($FF1B)
|
||||
; -- Sound length (R/W)
|
||||
; --
|
||||
; -- Bit 7-0 - Sound length
|
||||
; --
|
||||
DEF rNR31 EQU $FF1B
|
||||
DEF rAUD3LEN EQU rNR31
|
||||
|
||||
|
||||
; --
|
||||
; -- AUD3LEVEL/NR32 ($FF1C)
|
||||
; -- Select output level
|
||||
; --
|
||||
; -- Bit 6-5 - Select output level
|
||||
; -- 00: 0/1 (mute)
|
||||
; -- 01: 1/1
|
||||
; -- 10: 1/2
|
||||
; -- 11: 1/4
|
||||
; --
|
||||
DEF rNR32 EQU $FF1C
|
||||
DEF rAUD3LEVEL EQU rNR32
|
||||
|
||||
|
||||
; --
|
||||
; -- AUD3LOW/NR33 ($FF1D)
|
||||
; -- Frequency low byte (W)
|
||||
; --
|
||||
; -- see AUD1LOW for info
|
||||
; --
|
||||
DEF rNR33 EQU $FF1D
|
||||
DEF rAUD3LOW EQU rNR33
|
||||
|
||||
|
||||
; --
|
||||
; -- AUD3HIGH/NR34 ($FF1E)
|
||||
; -- Frequency high byte (W)
|
||||
; --
|
||||
; -- see AUD1HIGH for info
|
||||
; --
|
||||
DEF rNR34 EQU $FF1E
|
||||
DEF rAUD3HIGH EQU rNR34
|
||||
|
||||
|
||||
; --
|
||||
; -- AUD4LEN/NR41 ($FF20)
|
||||
; -- Sound length (R/W)
|
||||
; --
|
||||
; -- Bit 5-0 - Sound length data (# 0-63)
|
||||
; --
|
||||
DEF rNR41 EQU $FF20
|
||||
DEF rAUD4LEN EQU rNR41
|
||||
|
||||
|
||||
; --
|
||||
; -- AUD4ENV/NR42 ($FF21)
|
||||
; -- Envelope (R/W)
|
||||
; --
|
||||
; -- see AUD1ENV for info
|
||||
; --
|
||||
DEF rNR42 EQU $FF21
|
||||
DEF rAUD4ENV EQU rNR42
|
||||
|
||||
|
||||
; --
|
||||
; -- AUD4POLY/NR43 ($FF22)
|
||||
; -- Polynomial counter (R/W)
|
||||
; --
|
||||
; -- Bit 7-4 - Selection of the shift clock frequency of the (scf)
|
||||
; -- polynomial counter (0000-1101)
|
||||
; -- freq=drf*1/2^scf (not sure)
|
||||
; -- Bit 3 - Selection of the polynomial counter's step
|
||||
; -- 0: 15 steps
|
||||
; -- 1: 7 steps
|
||||
; -- Bit 2-0 - Selection of the dividing ratio of frequencies (drf)
|
||||
; -- 000: f/4 001: f/8 010: f/16 011: f/24
|
||||
; -- 100: f/32 101: f/40 110: f/48 111: f/56 (f=4.194304 Mhz)
|
||||
; --
|
||||
DEF rNR43 EQU $FF22
|
||||
DEF rAUD4POLY EQU rNR43
|
||||
|
||||
|
||||
; --
|
||||
; -- AUD4GO/NR44 ($FF23)
|
||||
; --
|
||||
; -- Bit 7 - Inital
|
||||
; -- Bit 6 - Counter/consecutive selection
|
||||
; --
|
||||
DEF rNR44 EQU $FF23
|
||||
DEF rAUD4GO EQU rNR44
|
||||
|
||||
|
||||
; --
|
||||
; -- AUDVOL/NR50 ($FF24)
|
||||
; -- Channel control / ON-OFF / Volume (R/W)
|
||||
; --
|
||||
; -- Bit 7 - Vin->SO2 ON/OFF (Vin??)
|
||||
; -- Bit 6-4 - SO2 output level (volume) (# 0-7)
|
||||
; -- Bit 3 - Vin->SO1 ON/OFF (Vin??)
|
||||
; -- Bit 2-0 - SO1 output level (volume) (# 0-7)
|
||||
; --
|
||||
DEF rNR50 EQU $FF24
|
||||
DEF rAUDVOL EQU rNR50
|
||||
|
||||
DEF AUDVOL_VIN_LEFT EQU %10000000 ; SO2
|
||||
DEF AUDVOL_VIN_RIGHT EQU %00001000 ; SO1
|
||||
|
||||
|
||||
; --
|
||||
; -- AUDTERM/NR51 ($FF25)
|
||||
; -- Selection of Sound output terminal (R/W)
|
||||
; --
|
||||
; -- Bit 7 - Output sound 4 to SO2 terminal
|
||||
; -- Bit 6 - Output sound 3 to SO2 terminal
|
||||
; -- Bit 5 - Output sound 2 to SO2 terminal
|
||||
; -- Bit 4 - Output sound 1 to SO2 terminal
|
||||
; -- Bit 3 - Output sound 4 to SO1 terminal
|
||||
; -- Bit 2 - Output sound 3 to SO1 terminal
|
||||
; -- Bit 1 - Output sound 2 to SO1 terminal
|
||||
; -- Bit 0 - Output sound 0 to SO1 terminal
|
||||
; --
|
||||
DEF rNR51 EQU $FF25
|
||||
DEF rAUDTERM EQU rNR51
|
||||
|
||||
; SO2
|
||||
DEF AUDTERM_4_LEFT EQU %10000000
|
||||
DEF AUDTERM_3_LEFT EQU %01000000
|
||||
DEF AUDTERM_2_LEFT EQU %00100000
|
||||
DEF AUDTERM_1_LEFT EQU %00010000
|
||||
; SO1
|
||||
DEF AUDTERM_4_RIGHT EQU %00001000
|
||||
DEF AUDTERM_3_RIGHT EQU %00000100
|
||||
DEF AUDTERM_2_RIGHT EQU %00000010
|
||||
DEF AUDTERM_1_RIGHT EQU %00000001
|
||||
|
||||
|
||||
; --
|
||||
; -- AUDENA/NR52 ($FF26)
|
||||
; -- Sound on/off (R/W)
|
||||
; --
|
||||
; -- Bit 7 - All sound on/off (sets all audio regs to 0!)
|
||||
; -- Bit 3 - Sound 4 ON flag (read only)
|
||||
; -- Bit 2 - Sound 3 ON flag (read only)
|
||||
; -- Bit 1 - Sound 2 ON flag (read only)
|
||||
; -- Bit 0 - Sound 1 ON flag (read only)
|
||||
; --
|
||||
DEF rNR52 EQU $FF26
|
||||
DEF rAUDENA EQU rNR52
|
||||
|
||||
DEF AUDENA_ON EQU %10000000
|
||||
DEF AUDENA_OFF EQU %00000000 ; sets all audio regs to 0!
|
||||
|
||||
|
||||
; --
|
||||
; -- LCDC ($FF40)
|
||||
; -- LCD Control (R/W)
|
||||
; --
|
||||
DEF rLCDC EQU $FF40
|
||||
|
||||
DEF LCDCF_OFF EQU %00000000 ; LCD Control Operation
|
||||
DEF LCDCF_ON EQU %10000000 ; LCD Control Operation
|
||||
DEF LCDCF_WIN9800 EQU %00000000 ; Window Tile Map Display Select
|
||||
DEF LCDCF_WIN9C00 EQU %01000000 ; Window Tile Map Display Select
|
||||
DEF LCDCF_WINOFF EQU %00000000 ; Window Display
|
||||
DEF LCDCF_WINON EQU %00100000 ; Window Display
|
||||
DEF LCDCF_BG8800 EQU %00000000 ; BG & Window Tile Data Select
|
||||
DEF LCDCF_BG8000 EQU %00010000 ; BG & Window Tile Data Select
|
||||
DEF LCDCF_BG9800 EQU %00000000 ; BG Tile Map Display Select
|
||||
DEF LCDCF_BG9C00 EQU %00001000 ; BG Tile Map Display Select
|
||||
DEF LCDCF_OBJ8 EQU %00000000 ; OBJ Construction
|
||||
DEF LCDCF_OBJ16 EQU %00000100 ; OBJ Construction
|
||||
DEF LCDCF_OBJOFF EQU %00000000 ; OBJ Display
|
||||
DEF LCDCF_OBJON EQU %00000010 ; OBJ Display
|
||||
DEF LCDCF_BGOFF EQU %00000000 ; BG Display
|
||||
DEF LCDCF_BGON EQU %00000001 ; BG Display
|
||||
; "Window Character Data Select" follows BG
|
||||
|
||||
|
||||
; --
|
||||
; -- STAT ($FF41)
|
||||
; -- LCDC Status (R/W)
|
||||
; --
|
||||
DEF rSTAT EQU $FF41
|
||||
|
||||
DEF STATF_LYC EQU %01000000 ; LYC=LY Coincidence (Selectable)
|
||||
DEF STATF_MODE10 EQU %00100000 ; Mode 10
|
||||
DEF STATF_MODE01 EQU %00010000 ; Mode 01 (V-Blank)
|
||||
DEF STATF_MODE00 EQU %00001000 ; Mode 00 (H-Blank)
|
||||
DEF STATF_LYCF EQU %00000100 ; Coincidence Flag
|
||||
DEF STATF_HBL EQU %00000000 ; H-Blank
|
||||
DEF STATF_VBL EQU %00000001 ; V-Blank
|
||||
DEF STATF_OAM EQU %00000010 ; OAM-RAM is used by system
|
||||
DEF STATF_LCD EQU %00000011 ; Both OAM and VRAM used by system
|
||||
DEF STATF_BUSY EQU %00000010 ; When set, VRAM access is unsafe
|
||||
|
||||
|
||||
; --
|
||||
; -- SCY ($FF42)
|
||||
; -- Scroll Y (R/W)
|
||||
; --
|
||||
DEF rSCY EQU $FF42
|
||||
|
||||
|
||||
; --
|
||||
; -- SCX ($FF43)
|
||||
; -- Scroll X (R/W)
|
||||
; --
|
||||
DEF rSCX EQU $FF43
|
||||
|
||||
|
||||
; --
|
||||
; -- LY ($FF44)
|
||||
; -- LCDC Y-Coordinate (R)
|
||||
; --
|
||||
; -- Values range from 0->153. 144->153 is the VBlank period.
|
||||
; --
|
||||
DEF rLY EQU $FF44
|
||||
|
||||
|
||||
; --
|
||||
; -- LYC ($FF45)
|
||||
; -- LY Compare (R/W)
|
||||
; --
|
||||
; -- When LY==LYC, STATF_LYCF will be set in STAT
|
||||
; --
|
||||
DEF rLYC EQU $FF45
|
||||
|
||||
|
||||
; --
|
||||
; -- DMA ($FF46)
|
||||
; -- DMA Transfer and Start Address (W)
|
||||
; --
|
||||
DEF rDMA EQU $FF46
|
||||
|
||||
|
||||
; --
|
||||
; -- BGP ($FF47)
|
||||
; -- BG Palette Data (W)
|
||||
; --
|
||||
; -- Bit 7-6 - Intensity for %11
|
||||
; -- Bit 5-4 - Intensity for %10
|
||||
; -- Bit 3-2 - Intensity for %01
|
||||
; -- Bit 1-0 - Intensity for %00
|
||||
; --
|
||||
DEF rBGP EQU $FF47
|
||||
|
||||
|
||||
; --
|
||||
; -- OBP0 ($FF48)
|
||||
; -- Object Palette 0 Data (W)
|
||||
; --
|
||||
; -- See BGP for info
|
||||
; --
|
||||
DEF rOBP0 EQU $FF48
|
||||
|
||||
|
||||
; --
|
||||
; -- OBP1 ($FF49)
|
||||
; -- Object Palette 1 Data (W)
|
||||
; --
|
||||
; -- See BGP for info
|
||||
; --
|
||||
DEF rOBP1 EQU $FF49
|
||||
|
||||
|
||||
; --
|
||||
; -- WY ($FF4A)
|
||||
; -- Window Y Position (R/W)
|
||||
; --
|
||||
; -- 0 <= WY <= 143
|
||||
; -- When WY = 0, the window is displayed from the top edge of the LCD screen.
|
||||
; --
|
||||
DEF rWY EQU $FF4A
|
||||
|
||||
|
||||
; --
|
||||
; -- WX ($FF4B)
|
||||
; -- Window X Position (R/W)
|
||||
; --
|
||||
; -- 7 <= WX <= 166
|
||||
; -- When WX = 7, the window is displayed from the left edge of the LCD screen.
|
||||
; -- Values of 0-6 and 166 are unreliable due to hardware bugs.
|
||||
; --
|
||||
DEF rWX EQU $FF4B
|
||||
|
||||
|
||||
; --
|
||||
; -- SPEED ($FF4D)
|
||||
; -- Select CPU Speed (R/W)
|
||||
; --
|
||||
DEF rKEY1 EQU $FF4D
|
||||
DEF rSPD EQU rKEY1
|
||||
|
||||
DEF KEY1F_DBLSPEED EQU %10000000 ; 0=Normal Speed, 1=Double Speed (R)
|
||||
DEF KEY1F_PREPARE EQU %00000001 ; 0=No, 1=Prepare (R/W)
|
||||
|
||||
|
||||
; --
|
||||
; -- VBK ($FF4F)
|
||||
; -- Select Video RAM Bank (R/W)
|
||||
; --
|
||||
; -- Bit 0 - Bank Specification (0: Specify Bank 0; 1: Specify Bank 1)
|
||||
; --
|
||||
DEF rVBK EQU $FF4F
|
||||
|
||||
|
||||
; --
|
||||
; -- HDMA1 ($FF51)
|
||||
; -- High byte for Horizontal Blanking/General Purpose DMA source address (W)
|
||||
; -- CGB Mode Only
|
||||
; --
|
||||
DEF rHDMA1 EQU $FF51
|
||||
|
||||
|
||||
; --
|
||||
; -- HDMA2 ($FF52)
|
||||
; -- Low byte for Horizontal Blanking/General Purpose DMA source address (W)
|
||||
; -- CGB Mode Only
|
||||
; --
|
||||
DEF rHDMA2 EQU $FF52
|
||||
|
||||
|
||||
; --
|
||||
; -- HDMA3 ($FF53)
|
||||
; -- High byte for Horizontal Blanking/General Purpose DMA destination address (W)
|
||||
; -- CGB Mode Only
|
||||
; --
|
||||
DEF rHDMA3 EQU $FF53
|
||||
|
||||
|
||||
; --
|
||||
; -- HDMA4 ($FF54)
|
||||
; -- Low byte for Horizontal Blanking/General Purpose DMA destination address (W)
|
||||
; -- CGB Mode Only
|
||||
; --
|
||||
DEF rHDMA4 EQU $FF54
|
||||
|
||||
|
||||
; --
|
||||
; -- HDMA5 ($FF55)
|
||||
; -- Transfer length (in tiles minus 1)/mode/start for Horizontal Blanking, General Purpose DMA (R/W)
|
||||
; -- CGB Mode Only
|
||||
; --
|
||||
DEF rHDMA5 EQU $FF55
|
||||
|
||||
DEF HDMA5F_MODE_GP EQU %00000000 ; General Purpose DMA (W)
|
||||
DEF HDMA5F_MODE_HBL EQU %10000000 ; HBlank DMA (W)
|
||||
|
||||
; -- Once DMA has started, use HDMA5F_BUSY to check when the transfer is complete
|
||||
DEF HDMA5F_BUSY EQU %10000000 ; 0=Busy (DMA still in progress), 1=Transfer complete (R)
|
||||
|
||||
|
||||
; --
|
||||
; -- RP ($FF56)
|
||||
; -- Infrared Communications Port (R/W)
|
||||
; -- CGB Mode Only
|
||||
; --
|
||||
DEF rRP EQU $FF56
|
||||
|
||||
DEF RPF_ENREAD EQU %11000000
|
||||
DEF RPF_DATAIN EQU %00000010 ; 0=Receiving IR Signal, 1=Normal
|
||||
DEF RPF_WRITE_HI EQU %00000001
|
||||
DEF RPF_WRITE_LO EQU %00000000
|
||||
|
||||
|
||||
; --
|
||||
; -- BCPS ($FF68)
|
||||
; -- Background Color Palette Specification (R/W)
|
||||
; --
|
||||
DEF rBCPS EQU $FF68
|
||||
|
||||
DEF BCPSF_AUTOINC EQU %10000000 ; Auto Increment (0=Disabled, 1=Increment after Writing)
|
||||
|
||||
|
||||
; --
|
||||
; -- BCPD ($FF69)
|
||||
; -- Background Color Palette Data (R/W)
|
||||
; --
|
||||
DEF rBCPD EQU $FF69
|
||||
|
||||
|
||||
; --
|
||||
; -- OCPS ($FF6A)
|
||||
; -- Object Color Palette Specification (R/W)
|
||||
; --
|
||||
DEF rOCPS EQU $FF6A
|
||||
|
||||
DEF OCPSF_AUTOINC EQU %10000000 ; Auto Increment (0=Disabled, 1=Increment after Writing)
|
||||
|
||||
|
||||
; --
|
||||
; -- OCPD ($FF6B)
|
||||
; -- Object Color Palette Data (R/W)
|
||||
; --
|
||||
DEF rOCPD EQU $FF6B
|
||||
|
||||
|
||||
; --
|
||||
; -- SMBK/SVBK ($FF70)
|
||||
; -- Select Main RAM Bank (R/W)
|
||||
; --
|
||||
; -- Bit 2-0 - Bank Specification (0,1: Specify Bank 1; 2-7: Specify Banks 2-7)
|
||||
; --
|
||||
DEF rSVBK EQU $FF70
|
||||
DEF rSMBK EQU rSVBK
|
||||
|
||||
|
||||
; --
|
||||
; -- PCM12 ($FF76)
|
||||
; -- Sound channel 1&2 PCM amplitude (R)
|
||||
; --
|
||||
; -- Bit 7-4 - Copy of sound channel 2's PCM amplitude
|
||||
; -- Bit 3-0 - Copy of sound channel 1's PCM amplitude
|
||||
; --
|
||||
DEF rPCM12 EQU $FF76
|
||||
|
||||
|
||||
; --
|
||||
; -- PCM34 ($FF77)
|
||||
; -- Sound channel 3&4 PCM amplitude (R)
|
||||
; --
|
||||
; -- Bit 7-4 - Copy of sound channel 4's PCM amplitude
|
||||
; -- Bit 3-0 - Copy of sound channel 3's PCM amplitude
|
||||
; --
|
||||
DEF rPCM34 EQU $FF77
|
||||
|
||||
|
||||
; --
|
||||
; -- IE ($FFFF)
|
||||
; -- Interrupt Enable (R/W)
|
||||
; --
|
||||
DEF rIE EQU $FFFF
|
||||
|
||||
DEF IEF_HILO EQU %00010000 ; Transition from High to Low of Pin number P10-P13
|
||||
DEF IEF_SERIAL EQU %00001000 ; Serial I/O transfer end
|
||||
DEF IEF_TIMER EQU %00000100 ; Timer Overflow
|
||||
DEF IEF_STAT EQU %00000010 ; STAT
|
||||
DEF IEF_VBLANK EQU %00000001 ; V-Blank
|
||||
|
||||
|
||||
;***************************************************************************
|
||||
;*
|
||||
;* Flags common to multiple sound channels
|
||||
;*
|
||||
;***************************************************************************
|
||||
|
||||
; --
|
||||
; -- Square wave duty cycle
|
||||
; --
|
||||
; -- Can be used with AUD1LEN and AUD2LEN
|
||||
; -- See AUD1LEN for more info
|
||||
; --
|
||||
DEF AUDLEN_DUTY_12_5 EQU %00000000 ; 12.5%
|
||||
DEF AUDLEN_DUTY_25 EQU %01000000 ; 25%
|
||||
DEF AUDLEN_DUTY_50 EQU %10000000 ; 50%
|
||||
DEF AUDLEN_DUTY_75 EQU %11000000 ; 75%
|
||||
|
||||
|
||||
; --
|
||||
; -- Audio envelope flags
|
||||
; --
|
||||
; -- Can be used with AUD1ENV, AUD2ENV, AUD4ENV
|
||||
; -- See AUD1ENV for more info
|
||||
; --
|
||||
DEF AUDENV_UP EQU %00001000
|
||||
DEF AUDENV_DOWN EQU %00000000
|
||||
|
||||
|
||||
; --
|
||||
; -- Audio trigger flags
|
||||
; --
|
||||
; -- Can be used with AUD1HIGH, AUD2HIGH, AUD3HIGH
|
||||
; -- See AUD1HIGH for more info
|
||||
; --
|
||||
|
||||
DEF AUDHIGH_RESTART EQU %10000000
|
||||
DEF AUDHIGH_LENGTH_ON EQU %01000000
|
||||
DEF AUDHIGH_LENGTH_OFF EQU %00000000
|
||||
|
||||
|
||||
;***************************************************************************
|
||||
;*
|
||||
;* CPU values on bootup (a=type, b=qualifier)
|
||||
;*
|
||||
;***************************************************************************
|
||||
|
||||
DEF BOOTUP_A_DMG EQU $01 ; Dot Matrix Game
|
||||
DEF BOOTUP_A_CGB EQU $11 ; Color GameBoy
|
||||
DEF BOOTUP_A_MGB EQU $FF ; Mini GameBoy (Pocket GameBoy)
|
||||
|
||||
; if a=BOOTUP_A_CGB, bit 0 in b can be checked to determine if real CGB or
|
||||
; other system running in GBC mode
|
||||
DEF BOOTUP_B_CGB EQU %00000000
|
||||
DEF BOOTUP_B_AGB EQU %00000001 ; GBA, GBA SP, Game Boy Player, or New GBA SP
|
||||
|
||||
|
||||
;***************************************************************************
|
||||
;*
|
||||
;* Cart related
|
||||
;*
|
||||
;***************************************************************************
|
||||
|
||||
; $0143 Color GameBoy compatibility code
|
||||
DEF CART_COMPATIBLE_DMG EQU $00
|
||||
DEF CART_COMPATIBLE_DMG_GBC EQU $80
|
||||
DEF CART_COMPATIBLE_GBC EQU $C0
|
||||
|
||||
; $0146 GameBoy/Super GameBoy indicator
|
||||
DEF CART_INDICATOR_GB EQU $00
|
||||
DEF CART_INDICATOR_SGB EQU $03
|
||||
|
||||
; $0147 Cartridge type
|
||||
DEF CART_ROM EQU $00
|
||||
DEF CART_ROM_MBC1 EQU $01
|
||||
DEF CART_ROM_MBC1_RAM EQU $02
|
||||
DEF CART_ROM_MBC1_RAM_BAT EQU $03
|
||||
DEF CART_ROM_MBC2 EQU $05
|
||||
DEF CART_ROM_MBC2_BAT EQU $06
|
||||
DEF CART_ROM_RAM EQU $08
|
||||
DEF CART_ROM_RAM_BAT EQU $09
|
||||
DEF CART_ROM_MMM01 EQU $0B
|
||||
DEF CART_ROM_MMM01_RAM EQU $0C
|
||||
DEF CART_ROM_MMM01_RAM_BAT EQU $0D
|
||||
DEF CART_ROM_MBC3_BAT_RTC EQU $0F
|
||||
DEF CART_ROM_MBC3_RAM_BAT_RTC EQU $10
|
||||
DEF CART_ROM_MBC3 EQU $11
|
||||
DEF CART_ROM_MBC3_RAM EQU $12
|
||||
DEF CART_ROM_MBC3_RAM_BAT EQU $13
|
||||
DEF CART_ROM_MBC5 EQU $19
|
||||
DEF CART_ROM_MBC5_BAT EQU $1A
|
||||
DEF CART_ROM_MBC5_RAM_BAT EQU $1B
|
||||
DEF CART_ROM_MBC5_RUMBLE EQU $1C
|
||||
DEF CART_ROM_MBC5_RAM_RUMBLE EQU $1D
|
||||
DEF CART_ROM_MBC5_RAM_BAT_RUMBLE EQU $1E
|
||||
DEF CART_ROM_MBC7_RAM_BAT_GYRO EQU $22
|
||||
DEF CART_ROM_POCKET_CAMERA EQU $FC
|
||||
DEF CART_ROM_BANDAI_TAMA5 EQU $FD
|
||||
DEF CART_ROM_HUDSON_HUC3 EQU $FE
|
||||
DEF CART_ROM_HUDSON_HUC1 EQU $FF
|
||||
|
||||
; $0148 ROM size
|
||||
; these are kilobytes
|
||||
DEF CART_ROM_32KB EQU $00 ; 2 banks
|
||||
DEF CART_ROM_64KB EQU $01 ; 4 banks
|
||||
DEF CART_ROM_128KB EQU $02 ; 8 banks
|
||||
DEF CART_ROM_256KB EQU $03 ; 16 banks
|
||||
DEF CART_ROM_512KB EQU $04 ; 32 banks
|
||||
DEF CART_ROM_1024KB EQU $05 ; 64 banks
|
||||
DEF CART_ROM_2048KB EQU $06 ; 128 banks
|
||||
DEF CART_ROM_4096KB EQU $07 ; 256 banks
|
||||
DEF CART_ROM_8192KB EQU $08 ; 512 banks
|
||||
DEF CART_ROM_1152KB EQU $52 ; 72 banks
|
||||
DEF CART_ROM_1280KB EQU $53 ; 80 banks
|
||||
DEF CART_ROM_1536KB EQU $54 ; 96 banks
|
||||
|
||||
; $0149 SRAM size
|
||||
; these are kilobytes
|
||||
DEF CART_SRAM_NONE EQU 0
|
||||
DEF CART_SRAM_2KB EQU 1 ; 1 incomplete bank
|
||||
DEF CART_SRAM_8KB EQU 2 ; 1 bank
|
||||
DEF CART_SRAM_32KB EQU 3 ; 4 banks
|
||||
DEF CART_SRAM_128KB EQU 4 ; 16 banks
|
||||
|
||||
DEF CART_SRAM_ENABLE EQU $0A
|
||||
DEF CART_SRAM_DISABLE EQU $00
|
||||
|
||||
; $014A Destination code
|
||||
DEF CART_DEST_JAPANESE EQU $00
|
||||
DEF CART_DEST_NON_JAPANESE EQU $01
|
||||
|
||||
|
||||
;***************************************************************************
|
||||
;*
|
||||
;* Keypad related
|
||||
;*
|
||||
;***************************************************************************
|
||||
|
||||
DEF PADF_DOWN EQU $80
|
||||
DEF PADF_UP EQU $40
|
||||
DEF PADF_LEFT EQU $20
|
||||
DEF PADF_RIGHT EQU $10
|
||||
DEF PADF_START EQU $08
|
||||
DEF PADF_SELECT EQU $04
|
||||
DEF PADF_B EQU $02
|
||||
DEF PADF_A EQU $01
|
||||
|
||||
DEF PADB_DOWN EQU $7
|
||||
DEF PADB_UP EQU $6
|
||||
DEF PADB_LEFT EQU $5
|
||||
DEF PADB_RIGHT EQU $4
|
||||
DEF PADB_START EQU $3
|
||||
DEF PADB_SELECT EQU $2
|
||||
DEF PADB_B EQU $1
|
||||
DEF PADB_A EQU $0
|
||||
|
||||
|
||||
;***************************************************************************
|
||||
;*
|
||||
;* Screen related
|
||||
;*
|
||||
;***************************************************************************
|
||||
|
||||
DEF SCRN_X EQU 160 ; Width of screen in pixels
|
||||
DEF SCRN_Y EQU 144 ; Height of screen in pixels
|
||||
DEF SCRN_X_B EQU 20 ; Width of screen in bytes
|
||||
DEF SCRN_Y_B EQU 18 ; Height of screen in bytes
|
||||
|
||||
DEF SCRN_VX EQU 256 ; Virtual width of screen in pixels
|
||||
DEF SCRN_VY EQU 256 ; Virtual height of screen in pixels
|
||||
DEF SCRN_VX_B EQU 32 ; Virtual width of screen in bytes
|
||||
DEF SCRN_VY_B EQU 32 ; Virtual height of screen in bytes
|
||||
|
||||
|
||||
;***************************************************************************
|
||||
;*
|
||||
;* OAM related
|
||||
;*
|
||||
;***************************************************************************
|
||||
|
||||
; OAM attributes
|
||||
; each entry in OAM RAM is 4 bytes (sizeof_OAM_ATTRS)
|
||||
RSRESET
|
||||
DEF OAMA_Y RB 1 ; y pos
|
||||
DEF OAMA_X RB 1 ; x pos
|
||||
DEF OAMA_TILEID RB 1 ; tile id
|
||||
DEF OAMA_FLAGS RB 1 ; flags (see below)
|
||||
DEF sizeof_OAM_ATTRS RB 0
|
||||
|
||||
DEF OAM_COUNT EQU 40 ; number of OAM entries in OAM RAM
|
||||
|
||||
; flags
|
||||
DEF OAMF_PRI EQU %10000000 ; Priority
|
||||
DEF OAMF_YFLIP EQU %01000000 ; Y flip
|
||||
DEF OAMF_XFLIP EQU %00100000 ; X flip
|
||||
DEF OAMF_PAL0 EQU %00000000 ; Palette number; 0,1 (DMG)
|
||||
DEF OAMF_PAL1 EQU %00010000 ; Palette number; 0,1 (DMG)
|
||||
DEF OAMF_BANK0 EQU %00000000 ; Bank number; 0,1 (GBC)
|
||||
DEF OAMF_BANK1 EQU %00001000 ; Bank number; 0,1 (GBC)
|
||||
|
||||
DEF OAMF_PALMASK EQU %00000111 ; Palette (GBC)
|
||||
|
||||
DEF OAMB_PRI EQU 7 ; Priority
|
||||
DEF OAMB_YFLIP EQU 6 ; Y flip
|
||||
DEF OAMB_XFLIP EQU 5 ; X flip
|
||||
DEF OAMB_PAL1 EQU 4 ; Palette number; 0,1 (DMG)
|
||||
DEF OAMB_BANK1 EQU 3 ; Bank number; 0,1 (GBC)
|
||||
|
||||
|
||||
;*
|
||||
;* Nintendo scrolling logo
|
||||
;* (Code won't work on a real GameBoy)
|
||||
;* (if next lines are altered.)
|
||||
MACRO NINTENDO_LOGO
|
||||
DB $CE,$ED,$66,$66,$CC,$0D,$00,$0B,$03,$73,$00,$83,$00,$0C,$00,$0D
|
||||
DB $00,$08,$11,$1F,$88,$89,$00,$0E,$DC,$CC,$6E,$E6,$DD,$DD,$D9,$99
|
||||
DB $BB,$BB,$67,$63,$6E,$0E,$EC,$CC,$DD,$DC,$99,$9F,$BB,$B9,$33,$3E
|
||||
ENDM
|
||||
|
||||
; Deprecated constants. Please avoid using.
|
||||
|
||||
DEF IEF_LCDC EQU %00000010 ; LCDC (see STAT)
|
||||
|
||||
ENDC ;HARDWARE_INC
|
||||
@ -1,179 +0,0 @@
|
||||
MACRO MemCopy
|
||||
ld hl, \1
|
||||
ld de, \2
|
||||
ld bc, \2_end - \2
|
||||
.loop\@
|
||||
ld a, [de]
|
||||
ld [hli], a
|
||||
inc de
|
||||
dec bc
|
||||
ld a, b
|
||||
or a, c
|
||||
jp nz, .loop\@
|
||||
ENDM
|
||||
|
||||
MACRO LoadTiles
|
||||
MemCopy _VRAM9000, tiles
|
||||
ENDM
|
||||
|
||||
MACRO MemClear
|
||||
ld hl, \1
|
||||
ld bc, \2
|
||||
.loop\@
|
||||
xor a
|
||||
ldi [hl], a
|
||||
dec bc
|
||||
ld a, b
|
||||
or a, c
|
||||
jp nz, .loop\@
|
||||
ENDM
|
||||
|
||||
MACRO ClearOAM
|
||||
MemClear _OAMRAM, $A0
|
||||
ENDM
|
||||
|
||||
MACRO ClearScreen
|
||||
MemClear _SCRN0, _SCRN1 - _SCRN0
|
||||
MemClear _SCRN1, _SCRN1 - _SCRN0
|
||||
ENDM
|
||||
|
||||
MACRO PrintString
|
||||
MemCopy (_SCRN0 + (\3 << 5) + \2), \1
|
||||
ENDM
|
||||
|
||||
MACRO PrintByteHex
|
||||
ld hl, \1
|
||||
ld a, [hl]
|
||||
and a, $F0
|
||||
swap a
|
||||
add a, "0"
|
||||
cp a, ":"
|
||||
jr c, .high_carry\@
|
||||
add a, "A" - "0" - 10
|
||||
.high_carry\@
|
||||
ld b, a
|
||||
|
||||
ld a, [hl]
|
||||
and a, $0F
|
||||
add a, "0"
|
||||
cp a, ":"
|
||||
jr c, .low_carry\@
|
||||
add a, "A" - "0" - 10
|
||||
.low_carry\@
|
||||
ld c, a
|
||||
ld hl, print_byte_hex_string
|
||||
ld a, b
|
||||
ldi [hl], a
|
||||
ld a, c
|
||||
ld [hl], a
|
||||
|
||||
PrintString print_byte_hex_string, \2, \3
|
||||
ENDM
|
||||
|
||||
MACRO PrintByte
|
||||
ld hl, \1
|
||||
xor a
|
||||
ld b, a
|
||||
ld c, a
|
||||
ld a, [hl]
|
||||
.hundreds\@
|
||||
cp a, 100
|
||||
jr c, .hundreds_done\@
|
||||
sub a, 100
|
||||
inc b
|
||||
jr .hundreds\@
|
||||
.hundreds_done\@
|
||||
|
||||
.tens\@
|
||||
cp a, 10
|
||||
jr c, .tens_done\@
|
||||
sub a, 10
|
||||
inc c
|
||||
jr .tens\@
|
||||
.tens_done\@
|
||||
|
||||
ld d, a
|
||||
|
||||
ld hl, print_byte_string
|
||||
ld a, b
|
||||
add a, "0"
|
||||
ldi [hl], a
|
||||
ld a, c
|
||||
add a, "0"
|
||||
ldi [hl], a
|
||||
ld a, d
|
||||
add a, "0"
|
||||
ldi [hl], a
|
||||
|
||||
PrintString print_byte_string, \2, \3
|
||||
ENDM
|
||||
|
||||
MACRO StartInit
|
||||
; Shut down audio circuitry
|
||||
ld a, 0
|
||||
ldh [rNR52], a
|
||||
|
||||
; Do not turn the LCD off outside of VBlank
|
||||
WaitVBlank:
|
||||
ldh a, [rLY]
|
||||
cp 144
|
||||
jp c, WaitVBlank
|
||||
|
||||
; Turn the LCD off
|
||||
ld a, 0
|
||||
ldh [rLCDC], a
|
||||
|
||||
;; Window setup
|
||||
ld a, 30
|
||||
ldh [rWX], a
|
||||
ld a, 115
|
||||
|
||||
ldh [rWY], a
|
||||
ENDM
|
||||
|
||||
MACRO FinishInit
|
||||
; Enable the interrupt handler
|
||||
ld a, $0F
|
||||
ldh [rIE], a
|
||||
|
||||
; During the first (blank) frame, initialize display registers
|
||||
ld a, %11100100
|
||||
ldh [rBGP], a
|
||||
|
||||
; Turn the LCD on
|
||||
ld a, LCDCF_ON | LCDCF_BGON | LCDCF_WINON | LCDCF_WIN9C00 | LCDCF_OBJON | LCDCF_OBJ8 | LCDCF_BG8800
|
||||
|
||||
ldh [rLCDC], a
|
||||
ENDM
|
||||
|
||||
MACRO IncrementFrameCount
|
||||
ld a, [current_frame]
|
||||
inc a
|
||||
ld [current_frame], a
|
||||
ENDM
|
||||
|
||||
MACRO IncrementWord
|
||||
ld a, [\1]
|
||||
ld b, a
|
||||
ld a, [\1 + 1]
|
||||
ld c, a
|
||||
inc bc
|
||||
ld a, b
|
||||
ld [\1], a
|
||||
ld a, c
|
||||
ld [\1 + 1], a
|
||||
ENDM
|
||||
|
||||
SECTION "Macro HRAM", HRAM
|
||||
current_frame: DS 2
|
||||
current_frame_end:
|
||||
|
||||
input_index: DS 2
|
||||
|
||||
print_byte_hex_string:
|
||||
print_byte_string:
|
||||
DS 2
|
||||
print_byte_hex_string_end:
|
||||
DS 1
|
||||
print_byte_string_end:
|
||||
|
||||
BIN
gb/lib/text.2bpp
BIN
gb/lib/text.2bpp
Binary file not shown.
BIN
gb/lib/text.png
BIN
gb/lib/text.png
Binary file not shown.
|
Before Width: | Height: | Size: 1.2 KiB |
@ -1,5 +0,0 @@
|
||||
SECTION "Tiles", ROM0
|
||||
tiles:
|
||||
INCBIN "lib/text.2bpp"
|
||||
tiles_end:
|
||||
|
||||
@ -1,42 +0,0 @@
|
||||
require "set"
|
||||
|
||||
input = STDIN.read.chomp
|
||||
commands = input.split ", "
|
||||
|
||||
position = [0, 0] # Cartesian coordinates, +x is right, +y is up
|
||||
direction = 0 # North I guess
|
||||
|
||||
visited_positions = Set.new([position.clone])
|
||||
first_revisited_position = nil
|
||||
|
||||
commands.each do |command|
|
||||
turn = command[0] == "L" ? 1 : -1
|
||||
distance = command[1..].to_i
|
||||
direction += turn
|
||||
direction = direction % 4
|
||||
|
||||
distance.times do
|
||||
case direction
|
||||
when 0
|
||||
position[1] += 1
|
||||
when 1
|
||||
position[0] += 1
|
||||
when 2
|
||||
position[1] -= 1
|
||||
when 3
|
||||
position[0] -= 1
|
||||
end
|
||||
|
||||
if !visited_positions.add?(position.clone)
|
||||
if first_revisited_position.nil?
|
||||
first_revisited_position = position.clone
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
part_1 = position.map(&:abs).sum
|
||||
part_2 = first_revisited_position.map(&:abs).sum
|
||||
|
||||
puts "Part 1: #{part_1}"
|
||||
puts "Part 2: #{part_2}"
|
||||
@ -1,56 +0,0 @@
|
||||
class DirectionString
|
||||
attr_reader :string, :start_position
|
||||
|
||||
def initialize(string, start_position=[1, 1])
|
||||
@string = string
|
||||
@start_position = start_position
|
||||
end
|
||||
|
||||
def final_position
|
||||
return start_position if string.empty?
|
||||
|
||||
self.class.new(string[1..], next_position).final_position
|
||||
end
|
||||
|
||||
def next_position
|
||||
case string[0]
|
||||
when "D"
|
||||
[start_position[0], start_position[1] + 1]
|
||||
when "U"
|
||||
[start_position[0], start_position[1] - 1]
|
||||
when "L"
|
||||
[start_position[0] - 1, start_position[1]]
|
||||
when "R"
|
||||
[start_position[0] + 1, start_position[1]]
|
||||
end.map{ |pos| pos.clamp(0, 2) }
|
||||
end
|
||||
end
|
||||
|
||||
def reduce(array, initial_value)
|
||||
acc = initial_value
|
||||
array.each do |value|
|
||||
acc = yield(acc, value)
|
||||
end
|
||||
acc
|
||||
end
|
||||
|
||||
input = STDIN.read.chomp
|
||||
direction_strings = input.split
|
||||
|
||||
KEYPAD = [[ 1, 2, 3 ],
|
||||
[ 4, 5, 6 ],
|
||||
[ 7, 8, 9 ]]
|
||||
|
||||
def keypad_digit(position)
|
||||
x, y = position
|
||||
KEYPAD[y][x]
|
||||
end
|
||||
|
||||
digits = []
|
||||
direction_strings.inject([1, 1]) do |acc, x|
|
||||
y = DirectionString.new(x, acc).final_position
|
||||
digits << keypad_digit(y)
|
||||
y
|
||||
end
|
||||
|
||||
puts "Part 1: #{digits.join}"
|
||||
@ -1,48 +0,0 @@
|
||||
class PotentialTriangle
|
||||
attr_reader :sides
|
||||
|
||||
def initialize(line)
|
||||
@sides = line.split.map(&:to_i)
|
||||
end
|
||||
|
||||
%w[a b c].each_with_index do |side, index|
|
||||
define_method("side_#{side}") do
|
||||
sides[index]
|
||||
end
|
||||
end
|
||||
|
||||
def valid?
|
||||
side_a_valid? && side_b_valid? && side_c_valid?
|
||||
end
|
||||
|
||||
def side_a_valid?
|
||||
side_a < side_b + side_c
|
||||
end
|
||||
|
||||
def side_b_valid?
|
||||
side_b < side_a + side_c
|
||||
end
|
||||
|
||||
def side_c_valid?
|
||||
side_c < side_b + side_a
|
||||
end
|
||||
end
|
||||
|
||||
input = STDIN.read.chomp
|
||||
potential_triangle_lines = input.split("\n")
|
||||
potential_triangles = potential_triangle_lines.map { |line| PotentialTriangle.new line }
|
||||
valid_triangles = potential_triangles.count(&:valid?)
|
||||
|
||||
puts "Part 1: #{valid_triangles}"
|
||||
|
||||
grouped_triangle_lines = potential_triangle_lines.join(" ").split.each_with_index.each_with_object([[], [], []]) do |item_index, groups|
|
||||
item, index = item_index
|
||||
groups[index % 3] << item
|
||||
groups
|
||||
end
|
||||
|
||||
sideways_triangle_lines = grouped_triangle_lines.flatten.each_slice(3).to_a.map { |tri| tri.join " " }
|
||||
sideways_triangles = sideways_triangle_lines.map { |line| PotentialTriangle.new line }
|
||||
valid_sideways_triangles = sideways_triangles.count(&:valid?)
|
||||
|
||||
puts "Part 2: #{valid_sideways_triangles}"
|
||||
@ -1,36 +0,0 @@
|
||||
class Room
|
||||
attr_reader :name, :sector_id, :checksum
|
||||
|
||||
def initialize(string)
|
||||
@name = string.split("-")[..-2].join("-")
|
||||
@sector_id = string.split("-")[-1].split("[")[0].to_i
|
||||
@checksum = string.split("[")[1][..-2]
|
||||
end
|
||||
|
||||
def calculated_checksum
|
||||
letter_counts.sort_by { |k, v| [-v, -k] }.map(&:first)[0...5].join
|
||||
end
|
||||
|
||||
def real?
|
||||
calculated_checksum == checksum
|
||||
end
|
||||
|
||||
def letter_counts
|
||||
(name.chars - ["-"]).group_by(&:itself).to_h { |k, v| [k, v.count] }
|
||||
end
|
||||
|
||||
def rotated_name
|
||||
1.upto(sector_id % 26).reduce(name) { |n, _| n.codepoints.map{ |c| ((((c + 1) - 97) % 26) + 97).chr }.join("") }
|
||||
end
|
||||
end
|
||||
|
||||
input = STDIN.read.chomp
|
||||
room_lines = input.split("\n")
|
||||
rooms = room_lines.map { |line| Room.new line }
|
||||
part_1 = rooms.select(&:real?).sum(&:sector_id)
|
||||
|
||||
puts "Part 1: #{part_1}"
|
||||
|
||||
part_2 = rooms.find { |room| room.rotated_name.include? "northpole" }.sector_id
|
||||
|
||||
puts "Part 2: #{part_2}"
|
||||
@ -1,39 +0,0 @@
|
||||
require "digest"
|
||||
|
||||
input = STDIN.read.chomp
|
||||
salt = 0
|
||||
password = []
|
||||
|
||||
loop do
|
||||
digest = Digest::MD5.hexdigest("#{input}#{salt}")
|
||||
if digest[0...5] == "00000"
|
||||
password << digest[5]
|
||||
puts password.join("")
|
||||
break if password.length >= 8
|
||||
end
|
||||
salt += 1
|
||||
end
|
||||
|
||||
part_1 = password.join("")
|
||||
|
||||
puts "Part 1: #{part_1}"
|
||||
|
||||
salt = 0
|
||||
to_solve = 8
|
||||
password = "--------"
|
||||
loop do
|
||||
digest = Digest::MD5.hexdigest("#{input}#{salt}")
|
||||
if digest[0...5] == "00000"
|
||||
if digest[5].to_i.to_s == digest[5] && digest[5].to_i < 8 && password[digest[5].to_i] == "-"
|
||||
password[digest[5].to_i] = digest[6]
|
||||
to_solve -= 1
|
||||
puts password
|
||||
end
|
||||
break if to_solve <= 0
|
||||
end
|
||||
salt += 1
|
||||
end
|
||||
|
||||
part_2 = password
|
||||
|
||||
puts "Part 2: #{part_2}"
|
||||
@ -1,23 +0,0 @@
|
||||
input = STDIN.read.chomp
|
||||
columns = input
|
||||
.split("\n")
|
||||
.map{ |line| line.split("") }
|
||||
.transpose
|
||||
|
||||
part_1 = columns.map do |column|
|
||||
column
|
||||
.group_by(&:itself)
|
||||
.sort_by { |k, v| v.count }
|
||||
.last[0]
|
||||
end.join
|
||||
|
||||
puts "Part 1: #{part_1}"
|
||||
|
||||
part_2 = columns.map do |column|
|
||||
column
|
||||
.group_by(&:itself)
|
||||
.sort_by { |k, v| v.count }
|
||||
.first[0]
|
||||
end.join
|
||||
|
||||
puts "Part 2: #{part_2}"
|
||||
@ -1,71 +0,0 @@
|
||||
class String
|
||||
def to_ip
|
||||
IP.new self
|
||||
end
|
||||
end
|
||||
|
||||
class IP < String
|
||||
def initialize(s)
|
||||
super s
|
||||
end
|
||||
|
||||
def supports_tls?
|
||||
!has_abba_in_hypernet_sequences? && has_abba?
|
||||
end
|
||||
|
||||
def abba?
|
||||
self[0] == self[3] && self[2] == self[1] && self[0] != self[1]
|
||||
end
|
||||
|
||||
def has_abba?
|
||||
chars.each_cons(4).map(&:join).map(&:to_ip).any?(&:abba?)
|
||||
end
|
||||
|
||||
def has_abba_in_hypernet_sequences?
|
||||
hypernet_sequences.any? &:has_abba?
|
||||
end
|
||||
|
||||
def hypernet_sequences
|
||||
supernet_and_hypernet_sequences.each_with_index.select do |seq, i|
|
||||
i % 2 == 1
|
||||
end.map(&:first)
|
||||
end
|
||||
|
||||
def supernet_sequences
|
||||
supernet_and_hypernet_sequences.each_with_index.select do |seq, i|
|
||||
i % 2 == 0
|
||||
end.map(&:first)
|
||||
end
|
||||
|
||||
def supernet_and_hypernet_sequences
|
||||
split("[").map{ |chunk| chunk.split("]") }.flatten.map(&:to_ip)
|
||||
end
|
||||
|
||||
def abas
|
||||
@abas ||= chars.each_cons(3).select { |triple| triple[0] == triple[2] && triple[0] != triple[1] }.map(&:join).map(&:to_ip)
|
||||
end
|
||||
|
||||
def bab?(abas_to_match)
|
||||
abas_to_match.any? { |aba| aba[0] == self[1] && self[0] == aba[1] }
|
||||
end
|
||||
|
||||
def babs(abas_to_match)
|
||||
abas.select { |aba| aba.bab?(abas_to_match) }
|
||||
end
|
||||
|
||||
def supports_ssl?
|
||||
supernet_abas = supernet_sequences.map(&:abas).flatten
|
||||
hypernet_sequences.any? { |seq| seq.babs(supernet_abas).length > 0 }
|
||||
end
|
||||
end
|
||||
|
||||
input = STDIN.read.chomp
|
||||
lines = input.split("\n").map(&:to_ip)
|
||||
|
||||
part_1 = lines.count(&:supports_tls?)
|
||||
|
||||
puts "Part 1: #{part_1}"
|
||||
|
||||
part_2 = lines.count(&:supports_ssl?)
|
||||
|
||||
puts "Part 2: #{part_2}"
|
||||
@ -1,217 +0,0 @@
|
||||
class Command
|
||||
def self.for(line)
|
||||
if line.split.first == "rect"
|
||||
RectCommand
|
||||
elsif line.split[1] == "row"
|
||||
RotateRowCommand
|
||||
elsif line.split[1] == "column"
|
||||
RotateColumnCommand
|
||||
end.new line
|
||||
end
|
||||
end
|
||||
|
||||
class RectCommand < Command
|
||||
attr_reader :width, :height
|
||||
|
||||
def initialize(line)
|
||||
@width, @height = line.split.last.split("x").map(&:to_i)
|
||||
end
|
||||
|
||||
def apply(screen)
|
||||
screen.rect!(width, height)
|
||||
end
|
||||
end
|
||||
|
||||
class RotateRowCommand < Command
|
||||
attr_reader :row, :by
|
||||
|
||||
def initialize(line)
|
||||
@row = line.split[2].split("=")[1].to_i
|
||||
@by = line.split[4].to_i
|
||||
end
|
||||
|
||||
def apply(screen)
|
||||
screen.rotate_row!(row, by)
|
||||
end
|
||||
end
|
||||
|
||||
class RotateColumnCommand < Command
|
||||
attr_reader :column, :by
|
||||
|
||||
def initialize(line)
|
||||
@column = line.split[2].split("=")[1].to_i
|
||||
@by = line.split[4].to_i
|
||||
end
|
||||
|
||||
def apply(screen)
|
||||
screen.rotate_column!(column, by)
|
||||
end
|
||||
end
|
||||
|
||||
class Screen
|
||||
attr_reader :pixels
|
||||
|
||||
def initialize
|
||||
@pixels = Array.new(height) { Array.new(width, " ") }
|
||||
end
|
||||
|
||||
def width
|
||||
50
|
||||
end
|
||||
|
||||
def height
|
||||
6
|
||||
end
|
||||
|
||||
def rect!(width, height)
|
||||
width.times { |x| height.times { |y| pixels[y][x] = "#" } }
|
||||
end
|
||||
|
||||
def rotate_row!(row, by)
|
||||
by.times { rotate_row_once! row }
|
||||
end
|
||||
|
||||
def rotate_row_once!(row)
|
||||
last = pixels[row].pop
|
||||
pixels[row].unshift(last)
|
||||
end
|
||||
|
||||
def rotate_column!(column, by)
|
||||
by.times { rotate_column_once! column }
|
||||
end
|
||||
|
||||
def rotate_column_once!(column)
|
||||
last = pixels[height - 1][column]
|
||||
(height - 1).downto(1) do |y|
|
||||
pixels[y][column] = pixels[y - 1][column]
|
||||
end
|
||||
|
||||
pixels[0][column] = last
|
||||
end
|
||||
|
||||
def print
|
||||
puts pixels.map(&:join)
|
||||
end
|
||||
|
||||
def lit_pixel_count
|
||||
pixels.flatten.count { |pixel| pixel == "#" }
|
||||
end
|
||||
end
|
||||
|
||||
class ScreenLetter
|
||||
attr_reader :pixels
|
||||
|
||||
def initialize(screen, position)
|
||||
@pixels = screen.pixels.map { |line| line.slice(position * 5, 5) }
|
||||
end
|
||||
|
||||
def print
|
||||
puts pixels.map(&:join)
|
||||
puts " "
|
||||
end
|
||||
|
||||
def to_s
|
||||
pixels.map(&:join).join("\n").to_s
|
||||
end
|
||||
|
||||
def letter_value
|
||||
case to_s
|
||||
when LETTER_E.chomp
|
||||
"E"
|
||||
when LETTER_F.chomp
|
||||
"F"
|
||||
when LETTER_Y.chomp
|
||||
"Y"
|
||||
when LETTER_K.chomp
|
||||
"K"
|
||||
when LETTER_R.chomp
|
||||
"R"
|
||||
when LETTER_I.chomp
|
||||
"I"
|
||||
when LETTER_J.chomp
|
||||
"J"
|
||||
else
|
||||
"?"
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
LETTER_E = <<-E
|
||||
####
|
||||
#
|
||||
###
|
||||
#
|
||||
#
|
||||
####
|
||||
E
|
||||
|
||||
LETTER_F = <<-F
|
||||
####
|
||||
#
|
||||
###
|
||||
#
|
||||
#
|
||||
#
|
||||
F
|
||||
|
||||
LETTER_Y = <<-Y
|
||||
# #
|
||||
# #
|
||||
# #
|
||||
#
|
||||
#
|
||||
#
|
||||
Y
|
||||
|
||||
LETTER_K = <<-K
|
||||
# #
|
||||
# #
|
||||
##
|
||||
# #
|
||||
# #
|
||||
# #
|
||||
K
|
||||
|
||||
LETTER_R = <<-R
|
||||
###
|
||||
# #
|
||||
# #
|
||||
###
|
||||
# #
|
||||
# #
|
||||
R
|
||||
|
||||
LETTER_I = <<-I
|
||||
###
|
||||
#
|
||||
#
|
||||
#
|
||||
#
|
||||
###
|
||||
I
|
||||
|
||||
LETTER_J = <<-J
|
||||
##
|
||||
#
|
||||
#
|
||||
#
|
||||
# #
|
||||
##
|
||||
J
|
||||
|
||||
input = STDIN.read.chomp
|
||||
commands = input.split("\n").map { |line| Command.for line }
|
||||
screen = Screen.new
|
||||
commands.each { |command| command.apply screen }
|
||||
|
||||
part_1 = screen.lit_pixel_count
|
||||
|
||||
puts "Part 1: #{part_1}"
|
||||
|
||||
letters = 0.upto(9).map do |position|
|
||||
ScreenLetter.new screen, position
|
||||
end
|
||||
|
||||
part_2 = letters.map(&:letter_value).join
|
||||
|
||||
puts "Part 2: #{part_2}"
|
||||
Loading…
Reference in New Issue
Block a user