Labels:text | font | screenshot | black and white OCR: READEMO AThe . COM file is read into the workspace Aby locating the next available TIENUMBER Aand tieing the file TIENUMBER+1+1/0, ONNUMS 'RDSCRN. COM' ONTIE TIENUMBER' AThe next step is to find out how large Athe file is (all references by TIENUMBER) SIZE+ONSIZE TIENUMBER ANext , the file is read into the workspace, Aassigning the data to an APL variable, and Adropping the leading ten NOPs rdscrn+10+ONREAD TIENUMBER, 82 , SIZE, 0 AThe above indicates I want to read SIZE Aitems from the origin (ie, the entire file). AThe 82 indicates that I want the data returned nas characters Athe final step is to CALL the c program using Aa (not required) APL cover function, returning Athe result to a variable R VRDSCRN[0]V 7 R+RDSCRN SCRNELKS ; INREG ; OUTREG [1]. AAPL=C FUNCTION - READ SCREEN BLOCKS [2] ABLOCKS N, 4 OF START ROW, COL. NUMBER ROWS , COLS [3] ACALL RDSCRN. COM (AS WORKSPACE VARIABLE rdscrn) [4] AREMEMBER TO 104 FROM THE . COM FILE [5] INREG+0, OSTPTR 'SCRNBLKS R' AINIT REGISTERS [6] OUTREG+INREG OCALL rdscrn ACALL rdscrn . [7] ATHE RESULT. R. WILL BE FILLED IN BY C PGM RFRDSCRN 3 400 0 5 10 3 15 3 7 20 20 5 5
(.png)
