{"id":606,"date":"2016-04-14T18:06:59","date_gmt":"2016-04-14T17:06:59","guid":{"rendered":"http:\/\/bergatrollet.se\/blog\/?p=606"},"modified":"2016-04-16T15:54:19","modified_gmt":"2016-04-16T14:54:19","slug":"professional-pds-docs","status":"publish","type":"post","link":"http:\/\/bergatrollet.se\/blog\/2016\/04\/professional-pds-docs\/","title":{"rendered":"Professional PDS docs"},"content":{"rendered":"
\"\"
Running Professional PDS<\/figcaption><\/figure>\n

Running into the issue of having source code in a binary format and having no clue of how the editor worked, made me look high and low on the web, with no luck. In the end Uwe and Jan helped out – thanks guys. Uwe pointed out the basic fact that CTRL in VICE emulator is mapped to the tab key. Having used VICE for years, this was still news. Jan added sections of the below on the pseudo opcodes and such. Brix\/Plush added quite a bit more to the knowing. Thanks all for valuable contributions!<\/p>\n

Keyboard command (CTRL + key)<\/strong><\/p>\n

B – Mark block (start\/end)
\nY – Export block (PETSCII)
\nT – Delete row (from cursor and back)
\nW – Delete char
\nI – Mark the row (makes is a comment) – use twice to toggle
\nP – Save block
\nS – Gotot Start
\nD – Delete row
\nF – Find
\nG – Get a block
\nK – Copy a block to the cursor position
\nL – Kill block
\nX – Search and replace
\nC – Goes to menu
\nN – Insert row
\nM – Cursor down<\/p>\n

Other keyboard stuff<\/strong><\/p>\n

Shift – RETURN – Inser row<\/p>\n

RUN\/STOP Exit to menu
\nHOME Go to top<\/p>\n

Shift+HOME Go to bottom
\nF1\/F3 Continous scroll up\/down. Press key again to halt.
\nF5\/F7 Jump 5 characters left\/right
\nF2\/F4 Jump 24 lines up\/down
\nF6\/F8 Jump 5 lines up\/down<\/p>\n

One key (I think it’s page down) freezes the program, which could be because of the Action Replay<\/p>\n

Source directives<\/strong><\/p>\n

.SETPC $
\n.PROGRAM “”
\n.B or .BYTE
\n.WORD<\/p>\n

.TEXT “” –\u00a0Petscii text
\n.STEXT “” – Screen codes<\/p>\n

.BEGIN
\n.END<\/p>\n

+

* CURRENT MEMORY LOCATION<\/p>\n

<-COMPILERLABEL (arrow left): A compiler label (used as jump target for assembler directives and macro names).
\n.GOTO COMPILERLABEL -> make assembler jump to compiler label. note that macro definitions must be jumped over like this:<\/p>\n

.GOTO COMPLABEL
\n;define your macros here
\n<-COMPLABEL<\/p>\n

Macro-definitions:
\n<-INC16 .MACRO +ADDRESS
\n.BEGIN
\nINC ADDRESS
\nBNE SKIP
\nINC ADDRESS+1
\n-SKIP .END
\n.ENDMACRO<\/p>\n

Macros can have more than one parameter:
\n<-MOVA .MACRO +ADDRESS, +VAL
\nLDA #<\/span>VAL<\/span><\/a>
\nSTA ADDRESS
\n.ENDMACRO
\nusing above macro:
\nMOVA $D020,$04<\/p>\n

Template definitions:
\n$BNELONG = “BEQ *+5:JMP”
\nusing above template:
\nLDA #$10
\n[BNELONG] OUT
\n…
\n+OUT RTS ;some branch target out of range<\/p>\n

Output data while assembly:
\n.PRINT STR$(*) ;print current address, decimal)
\n.PRINT STR$(label) ;print label value<\/p>\n

if\/then\/else blocks:
\n.IF condition
\nblock
\n.ELSE
\nblock
\n.ENDIF<\/p>\n

Examples for compiler loops\/conditional assembly using above commands:<\/p>\n

+VALX = 10
\n.IF VALX <>10
\n.GOTO YELLOW
\n.ELSE
\n.GOTO PURPLE
\n.ENDIF
\n<-YELLOW
\nLDA#$07
\n.GOTO SETCOLOR
\n<-PURPLE
\nLDA#$04
\n<-SETCOLOR STA $D021<\/p>\n

looping assembly (table\/speedcode generation):
\nLDA #$00
\n+DX=0:+DY=0
\n<-LOOP
\nSTA $0400+(DX*40)+DY ; brackets not needed, showing anyway
\n.PRINT “X=”+STR$(DX)+”, Y=”+STR$(DY)
\n+DX=DX+1:+DY=DY+1
\n.IF DX<5
\n.GOTO LOOP
\n.ENDIF<\/p>\n

Finally: After reset, restart assembler with:
\nSYS 53000 ($CF00)<\/p>\n","protected":false},"excerpt":{"rendered":"

Running into the issue of having source code in a binary format and having no clue of how the editor worked, made me look high and low on the web, with no luck. In the end Uwe and Jan helped …<\/p>\n

Professional PDS docs<\/span> Read More »<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"jetpack_post_was_ever_published":false,"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":true,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[88,89],"tags":[],"class_list":["post-606","post","type-post","status-publish","format-standard","hentry","category-88","category-commodore64"],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"jetpack_shortlink":"https:\/\/wp.me\/pkM6p-9M","jetpack_likes_enabled":true,"_links":{"self":[{"href":"http:\/\/bergatrollet.se\/blog\/wp-json\/wp\/v2\/posts\/606","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/bergatrollet.se\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/bergatrollet.se\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/bergatrollet.se\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/bergatrollet.se\/blog\/wp-json\/wp\/v2\/comments?post=606"}],"version-history":[{"count":6,"href":"http:\/\/bergatrollet.se\/blog\/wp-json\/wp\/v2\/posts\/606\/revisions"}],"predecessor-version":[{"id":612,"href":"http:\/\/bergatrollet.se\/blog\/wp-json\/wp\/v2\/posts\/606\/revisions\/612"}],"wp:attachment":[{"href":"http:\/\/bergatrollet.se\/blog\/wp-json\/wp\/v2\/media?parent=606"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/bergatrollet.se\/blog\/wp-json\/wp\/v2\/categories?post=606"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/bergatrollet.se\/blog\/wp-json\/wp\/v2\/tags?post=606"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}