mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-08-18 23:29:26 +00:00
266 lines
6.1 KiB
ArmAsm
266 lines
6.1 KiB
ArmAsm
;=================================
|
|
;=================================
|
|
; Intro Segment 06 Data (Console)
|
|
;=================================
|
|
;=================================
|
|
|
|
.include "intro_graphics/06_console/intro_desktop.inc"
|
|
.include "intro_graphics/06_console/intro_cursor.inc"
|
|
.include "intro_graphics/06_console/intro_collider.inc"
|
|
|
|
|
|
; Power-up sequence
|
|
|
|
powerup_sequence:
|
|
.byte 20
|
|
.word powerup01_rle
|
|
.byte 128+60 ; .word powerup02_rle
|
|
.byte 128+20 ; .word powerup03_rle
|
|
.byte 20
|
|
.word powerup03_rle
|
|
.byte 0
|
|
|
|
|
|
; Cursor sequence
|
|
|
|
cursor_sequence:
|
|
.byte 60
|
|
.word cursor01_rle
|
|
.byte 128+40 ; .word cursor02_rle
|
|
.byte 128+20 ; .word cursor03_rle
|
|
.byte 128+20 ; .word cursor04_rle
|
|
.byte 128+20 ; .word cursor05_rle
|
|
.byte 128+20 ; .word cursor06_rle
|
|
.byte 128+20 ; .word cursor07_rle
|
|
.byte 128+20 ; .word cursor08_rle
|
|
.byte 60
|
|
.word cursor08_rle
|
|
.byte 0
|
|
|
|
|
|
peanut:
|
|
.byte 0,2,"COPYRIGHT (C) 1977 PEANUT COMPUTER, INC.",0
|
|
.byte 0,3,"ALL RIGHTS RESERVED.",0
|
|
.byte 0,5,"CDOS VERSION 5.01",0
|
|
.byte 0,18,"> ",(' '|$80),0
|
|
.byte 255
|
|
project_23:
|
|
.byte "RUN PROJECT 23",0
|
|
|
|
accelerator:
|
|
.byte 0,0, "MODIFICATION OF PARAMETERS",0
|
|
.byte 0,1, "RELATING TO PARTICLE",0
|
|
.byte 0,2, "ACCELERATOR (SYNCHOTRON).",0
|
|
.byte 0,3, " ___________",0
|
|
.byte 0,4, ":ROOM 3 ",('+'|$80),":\ E: 23%",0
|
|
.byte 0,5, ": : : G: .005",0
|
|
.byte 0,6, ": : : : RK: 77.2L",0
|
|
.byte 0,7, ": : :",0
|
|
.byte 0,8, ": : : OPT: G+",0
|
|
.byte 0,9, ": : : :",0
|
|
.byte 0,10, ":__________:_: SHIELD:",0
|
|
.byte 0,11, ":ROOM 1 ",('+'|$80),": : 1: OFF",0
|
|
.byte 0,12, ": : : : 2: ON",0
|
|
.byte 0,13, ": : : 3: ON",0
|
|
.byte 0,14, ": : : :",0
|
|
.byte 0,15, ": : : P^: 1",0
|
|
.byte 0,16, ": : : :",0
|
|
.byte 0,17, ": _________:_:",0
|
|
.byte 0,18, ":/_________:/",0
|
|
.byte 255
|
|
|
|
accel_paramaters:
|
|
.byte $15,$6,' ',20 ; 21,4 = $615 Cursor starts at E
|
|
.byte $15,$6,' '|$80,1 ; Cusrsor off at E
|
|
.byte $96,$6,' ',100 ; 22,5 = $696 Down to .005 (pauses)
|
|
.byte $96,$6,' '|$80,1 ; off
|
|
.byte $18,$7,' ',20 ; 24,6 = $718 End of RK
|
|
.byte $18,$7,' '|$80,1 ; off
|
|
.byte $3E,$4,' ',100 ; 22,8 = $43E End of g+ (pauses)
|
|
.byte $3E,$4,' '|$80,1 ; off
|
|
.byte $3D,$4,' ',20 ; 21,8 = $43D erase +
|
|
.byte $3D,$4,'-'|$80,1 ; change to - (pauses)
|
|
.byte $3E,$4,' ',100 ; 22,8 = $43e change to - (pauses)
|
|
.byte $3E,$4,' '|$80,1 ; off
|
|
.byte $BD,$5,' ',100 ; 22,11= $5bd down to 1 (pauses)
|
|
.byte $BD,$5,' '|$80,1 ; off
|
|
.byte $3C,$6,' ',20 ; 21,12= $63c down to 2
|
|
.byte $3C,$6,' '|$80,1 ; off
|
|
.byte $BC,$6,' ',20 ; 21,13= $6bc down to 3
|
|
.byte $BC,$6,' '|$80,1 ; off
|
|
.byte $BC,$7,' ',20 ; 21,15= $7bc down to P (pause)
|
|
.byte $BC,$7,' '|$80,1 ; off
|
|
.byte $ff
|
|
|
|
|
|
; FLASH: RUN EXPERIMENT ? (pause)
|
|
run_experiment:
|
|
.byte 10,20,"RUN EXPERIMENT ?",0
|
|
run_blank:
|
|
.byte 10,20," ",0
|
|
|
|
;'R'|$80,'U'|$80,'N'|$80,' '|$80
|
|
; .byte 10,20,'R'|$80,'U'|$80,'N'|$80,' '|$80
|
|
; .byte 'E'|$80,'X'|$80,'P'|$80,'E'|$80,'R'|$80,'I'|$80
|
|
; .byte 'M'|$80,'E'|$80,'N'|$80,'T'|$80,' '|$80,'?'|$80,0
|
|
|
|
|
|
|
|
|
|
; --- Theoretical Study ---
|
|
; make this inverse?
|
|
theoretical_study:
|
|
.byte 7,20,"--- THEORETICAL STUDY ---",0
|
|
|
|
; - Phase 0:
|
|
; INJECTION of particles
|
|
; into synchrotron
|
|
phase0:
|
|
.byte 0,21,"- PHASE 0:",0
|
|
.byte 0,22,"INJECTION OF PARTICLES",0
|
|
.byte 0,23,"INTO SYNCHROTRON",0
|
|
.byte $ff
|
|
|
|
; - Phase 1:
|
|
; Particle ACCELERATION.
|
|
phase1:
|
|
.byte 0,21,"- PHASE 1:",0
|
|
.byte 0,22,"PARTICLE ACCELERATION.",0
|
|
.byte $ff
|
|
|
|
; - Phase 2:
|
|
; EJECTION of particles
|
|
; on the shield.
|
|
phase2:
|
|
.byte 0,21,"- PHASE 2:",0
|
|
.byte 0,22,"EJECTION OF PARTICLES",0
|
|
.byte 0,23,"ON THE SHIELD.",0
|
|
.byte $ff
|
|
|
|
; A N A L Y S I S
|
|
analysis:
|
|
.byte 8,22,"A N A L Y S I S",0
|
|
|
|
; - RESULT:
|
|
; Probability of creating:
|
|
; ANTIMATTER: 91.V %
|
|
; NEUTRINO 27: 0.04 %
|
|
; NEUTRINO 424: 18 %
|
|
result:
|
|
.byte 0,20,"- RESULT, PROBABILITY OF CREATING:",0
|
|
.byte 10,21,"ANTIMATTER: 91.V %",0
|
|
.byte 10,22,"NEUTRINO 27: 0.04 %",0
|
|
.byte 10,23,"NEUTRINO 424: 18 %",0
|
|
.byte $ff
|
|
|
|
; Practical verification Y/N ?"
|
|
practical_verification:
|
|
.byte 6,21,"PRACTICAL VERIFICATION Y/N ?",0
|
|
|
|
; THE EXPERIMENT WILL BEGIN IN 20 SECONDS
|
|
experiment:
|
|
.byte 0,20,"THE EXPERIMENT WILL BEGIN IN 20 SECONDS",0
|
|
.byte 29,20,"19",0
|
|
.byte 29,20,"18",0
|
|
.byte 29,20,"17",0
|
|
|
|
|
|
; Particle co-ordinates
|
|
particles:
|
|
.byte 21,23 ; 0
|
|
.byte 21,15 ; 1
|
|
.byte 22,7 ; 2
|
|
.byte 27,2 ; 3
|
|
.byte 32,6 ; 4
|
|
.byte 34,13 ; 5
|
|
.byte 31,26 ; 6
|
|
.byte 27,28 ; 7
|
|
|
|
|
|
shield_sequence:
|
|
.byte 30
|
|
.word collider_p200_rle
|
|
.byte 30
|
|
.word collider_p201_rle
|
|
.byte 30
|
|
.word collider_p202_rle
|
|
.byte 30
|
|
.word collider_p203_rle
|
|
.byte 30
|
|
.word collider_p200_rle
|
|
.byte 0
|
|
|
|
|
|
message0:
|
|
.byte 8,22,"SHIELD 9A.5F OK ",0
|
|
message1:
|
|
.byte 8,22,"FLUX % 5.0177 OK",0
|
|
message2:
|
|
.byte 8,22,"CDI VECTOR OK ",0
|
|
message3:
|
|
.byte 8,22,"%%%DDD OK ",0
|
|
message4:
|
|
.byte 8,22,"RACE-TRACK OK ",0
|
|
|
|
message_list:
|
|
.word message0
|
|
.word message1
|
|
.word message2
|
|
.word message3
|
|
.word message4
|
|
|
|
|
|
five:
|
|
.byte 29,20,"5 ",0
|
|
four:
|
|
.byte 29,20,"4 ",0
|
|
three:
|
|
.byte 29,20,"3 ",0
|
|
two:
|
|
.byte 29,20,"2 ",0
|
|
one:
|
|
.byte 29,20,"1 ",0
|
|
zero:
|
|
.byte 29,20,"0 ",0
|
|
|
|
times:
|
|
; note, the second zero is there because we get a TIME_COUNT
|
|
; of 6 even though it is printed then erased (but never displayed)
|
|
.word five,four,three,two,one,zero,zero
|
|
|
|
|
|
;=================================
|
|
;=================================
|
|
; Intro Segment 07 Data (Soda)
|
|
;=================================
|
|
;=================================
|
|
|
|
.include "intro_graphics/07_soda/intro_open_soda.inc"
|
|
.include "intro_graphics/07_soda/intro_drinking.inc"
|
|
|
|
; Soda sequence
|
|
|
|
soda_sequence:
|
|
.byte 1
|
|
.word soda01_rle
|
|
.byte 128+30 ; .word soda02_rle
|
|
.byte 128+15 ; .word soda03_rle
|
|
.byte 128+15 ; .word soda04_rle
|
|
.byte 128+15 ; .word soda05_rle
|
|
.byte 128+15 ; .word soda06_rle
|
|
.byte 128+15 ; .word soda07_rle
|
|
.byte 128+15 ; .word soda08_rle
|
|
.byte 128+15 ; .word soda09_rle
|
|
.byte 20
|
|
.word soda09_rle
|
|
.byte 0
|
|
|
|
|
|
drinking_sequence:
|
|
.byte 30
|
|
.word drinking02_rle
|
|
.byte 128+30 ; .word drinking03_rle
|
|
.byte 128+30 ; .word drinking04_rle
|
|
.byte 128+30 ; .word drinking05_rle
|
|
.byte 0
|