Here is a small routine for the Oric 1 which allows you to find out the name of an unlabelled
program you may have just loaded.
It works by using the fast interrupts to print the contents of memory locations #49 onwards. The
Oric 1 stores the file name at these locations.
PHA
TXA Save the register contents
PHA
TYA
PHA
LDA #49 Print whatever is at #49 onwards
LDY #0
LDX #2
JSR #F82F
PLA
TAY Restore the register contents
PLA
TAX
PLA
JMP #EC03 Continues with interrupt
To load:
10 FOR I=#400 TO #415
20 READ D$:D=VAL("#"+D$):POKE I,D
30 NEXT I
40 DOKE#229,#400:END
50 DATA 48,8A,48,98,48
60 DATA A9,49,A0,00,A2,02,20,65,F8
70 DATA 68,A8,68,AA,68,4C,22,EE
12th January 1985
