Skip to content

Suggested small correction #3

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
Y-Innovate wants to merge 1 commit into
base: main
Choose a base branch
from
Open

Suggested small correction #3

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
20 changes: 12 additions & 8 deletions base64d.asm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -235,31 +235,34 @@ MainLoop DS 0H
*
* ------ Byte 1
RISBLG R1,R2,56,X'80'+63,-24 Work on top byte
*
CIJE R1,PadChar,DataNotValid Not valid to have pad here
*
LLC R3,0(R1,R9) Get correct bit pattern from table
*
CIJE R3,BadChar,DataNotValid Branch if not valid character
*
CIJE R3,PadChar,DataNotValid Not valid to have pad here
*
ROSBG R4,R3,40,45,18 Shift R3 18 left then OR into R4
*
* ------ Byte 2
RISBLG R1,R2,56,X'80'+63,-16 Work on 2nd byte
*
CIJE R1,PadChar,DataNotValid Not valid to have pad here
*
LLC R3,0(R1,R9) Get correct bit pattern from table
*
CIJE R3,BadChar,DataNotValid Branch if not valid character
*
CIJE R3,PadChar,DataNotValid Not valid to have pad here
*
ROSBG R4,R3,46,51,12 Shift R3 12 left then OR into R4
*
* ------ Byte 3
RISBLG R1,R2,56,X'80'+63,-8 Work on 3rd byte
*
CIJE R1,PadChar,Pad3 Padding character?
*
LLC R3,0(R1,R9) Get correct bit pattern from table
*
CIJE R3,BadChar,DataNotValid Branch if not valid character
*
CIJE R3,PadChar,Pad3 Padding character?
*
ROSBG R4,R3,52,57,6 Shift R3 6 left then OR into R4
J Pad3Skip
Expand All @@ -269,11 +272,12 @@ Pad3Skip DS 0H
*
* ------ Byte 4
RISBLG R1,R2,56,X'80'+63 Work on 4th byte
*
CIJE R1,PadChar,Pad4 Padding character?
*
LLC R3,0(R1,R9) Get correct bit pattern from table
*
CIJE R3,BadChar,DataNotValid Branch if not valid character
*
CIJE R3,PadChar,Pad4 Padding character?
*
CIJNE R10,0,DataNotValid Error if padding, then non-padding
*
Expand Down