Add new attachment

Only authorized users are allowed to upload new attachments.

List of attachments

Kind Attachment Name Size Version Date Modified Author Change note
png
ALLOC.png 346.4 kB 1 15-Aug-2017 20:14 Roland B. Wassenberg ALLOC.png
jpg
Disk-sticker.jpg 145.8 kB 1 15-Aug-2017 20:16 Roland B. Wassenberg Disk-sticker.jpg
jpg
Manual-Disk.jpg 143.8 kB 1 15-Aug-2017 20:17 Roland B. Wassenberg Manual-Disk.jpg
jpg
Manual-example.jpg 200.1 kB 1 15-Aug-2017 20:17 Roland B. Wassenberg Manual-example.jpg
jpg
Manual.jpg 16.6 kB 1 15-Aug-2017 18:32 Roland B. Wassenberg Manual.jpg
pdf
PL65-Manual.pdf 6,799.0 kB 1 15-Aug-2017 19:17 Roland B. Wassenberg PL65-Manual.pdf
atr
PL65_Compiler_SpartaDOS_X_33a_... 368.3 kB 1 15-Aug-2017 20:15 Roland B. Wassenberg PL65_Compiler_SpartaDOS_X_33a_360.atr
jpg
Startscreen.jpg 63.4 kB 1 15-Aug-2017 18:14 Roland B. Wassenberg Startscreen.jpg
atr
pl65-fixed.atr 184.0 kB 1 15-Aug-2017 20:15 Roland B. Wassenberg pl65-fixed.atr
atr
pl65.atr 184.0 kB 1 15-Aug-2017 18:14 Roland B. Wassenberg pl65.atr
zip
pl65src.zip 38.1 kB 1 15-Aug-2017 18:15 Roland B. Wassenberg pl65src.zip

This page (revision-18) was last changed on 11-May-2018 15:09 by Maury Markowitz  

This page was created on 15-Aug-2017 18:14 by Roland B. Wassenberg

Only authorized users are allowed to rename pages.

Only authorized users are allowed to delete pages.

Difference between version and

At line 4 changed one line
!!
!!ATR Image
* [pl65.atr] ; Thank you Fujix from AtariAge for giving us this very rare language! :-)))
!!Source Code
* [pl65src.zip] ; Thank you DanBoris from AtariAge for giving us this partial commented disassembly of the PL65 sample program along with some plain ascii versions of the source file and libraries. We really appreciate your help! :-)))
!!Reference
[PL65 at AtariAge|http://atariage.com/forums/topic/106821-pl65-cracked/]
!!Picture
[{Image src='Startscreen.jpg' width=436 height=152 }]
PL65 startscreen
!!Sample Code
{{{
!====================================!
! KEYS.LIB
! PL65 Keys operations.
!------------------------------------!
CONST UPA=142,DNA=143,LTA=134,RTA=135
CONST ESC=28,SPC=33,TAB=44,RET=12
CONST none=255
BYTE CH=764
!------------------------------------!
PROC AnyKey()
BEGIN
WHILE CH=none DO ENDWHILE CH=none
END
!------------------------------------!
FUNC InKey()
BYTE k
BEGIN
WHILE CH=none DO ENDWHILE k=CH CH=none
END k
!------------------------------------!
! Only Declarations for clear compiling!
! Definitions must be in MAIN() as BODY.
PROC EscF() FORWARD
PROC UpaF() FORWARD
PROC DnaF() FORWARD
PROC LtaF() FORWARD
PROC RtaF() FORWARD
PROC SpcF() FORWARD
PROC TabF() FORWARD
PROC RetF() FORWARD
PROC DefF() FORWARD
!------------------------------------!
PROC ParsKey(BYTE Key)
BEGIN
CASE Key
OF ESC DO EscF() ENDOF
OF UPA DO UpaF() ENDOF
OF DNA DO DnaF() ENDOF
OF LTA DO LtaF() ENDOF
OF RTA DO RtaF() ENDOF
OF SPC DO SpcF() ENDOF
OF TAB DO TabF() ENDOF
OF RET DO RetF() ENDOF
ELSE
DefF()
ENDCASE
END
!------------------------------------!
ENDFILE
}}}
{{{
! Keyboard Parser
INCLUDE TERMINAL.LIB
INCLUDE KEYS.LIB
PROC POS(INT COL=$55 BYTE ROW=$54)
BEGIN END ! Gets data from stack
!------------------------------------!
PROC CLR() BEGIN PUT(0,125) END
!------------------------------------!
BODY EscF BEGIN POS(18,10) WRTSTR("ESC") END
BODY UpaF BEGIN POS(18,10) WRTSTR("UPA") END
BODY DnaF BEGIN POS(18,10) WRTSTR("DNA") END
BODY LtaF BEGIN POS(18,10) WRTSTR("LTA") END
BODY RtaF BEGIN POS(18,10) WRTSTR("RTA") END
BODY SpcF BEGIN POS(18,10) WRTSTR("SPC") END
BODY TabF BEGIN POS(18,10) WRTSTR("TAB") END
BODY RetF BEGIN POS(18,10) WRTSTR("RET") END
BODY DefF BEGIN POS(18,10) WRTSTR("BAD") END
!------------------------------------!
MAIN()
BYTE k
BEGIN
CLR()
WRTLN("Keys Parsing Sample")
WRTLN("Waiting a KEY...") CR()
REPEAT
k=InKey() ParsKey(k)
UNTIL k=ESC
END
}}}
Version Date Modified Size Author Changes ... Change note
18 11-May-2018 15:09 9.427 kB Maury Markowitz to previous
17 03-May-2018 22:17 9.427 kB Maury Markowitz to previous | to last
16 03-May-2018 20:12 9.369 kB Maury Markowitz to previous | to last ACTION ==> Action
15 01-May-2018 03:31 9.37 kB Roland B. Wassenberg to previous | to last
14 28-Apr-2018 14:48 9.37 kB Maury Markowitz to previous | to last
13 28-Apr-2018 14:47 9.435 kB Maury Markowitz to previous | to last
12 28-Apr-2018 14:09 8.188 kB Maury Markowitz to previous | to last
11 15-Aug-2017 20:29 8.185 kB Roland B. Wassenberg to previous | to last
10 15-Aug-2017 20:23 7.936 kB Roland B. Wassenberg to previous | to last
9 15-Aug-2017 20:12 4.182 kB Roland B. Wassenberg to previous | to last
8 15-Aug-2017 19:18 4.111 kB Roland B. Wassenberg to previous | to last
7 15-Aug-2017 19:16 4.072 kB Roland B. Wassenberg to previous | to last
6 15-Aug-2017 19:09 4.222 kB Roland B. Wassenberg to previous | to last
5 15-Aug-2017 18:53 4.104 kB Roland B. Wassenberg to previous | to last
4 15-Aug-2017 18:36 3.495 kB Roland B. Wassenberg to previous | to last
3 15-Aug-2017 18:31 3.42 kB Roland B. Wassenberg to previous | to last
2 15-Aug-2017 18:24 3.225 kB Roland B. Wassenberg to previous | to last
1 15-Aug-2017 18:14 0.648 kB Roland B. Wassenberg to last PL65
« This page (revision-18) was last changed on 11-May-2018 15:09 by Maury Markowitz