800x MACHO ASSEMBLER, VER 2.2 1XXXXXXX B/M.OD 8 MONXXXX, VERSION 3,0, 14 AXXXX 1975 ERRORS · 0 PAGI 17 3XxX EB MOV H ,A 3A3E 461ti3E CALL LBYTE 7 DISPLAX MSb OF blFFERENCE 3A41 C4 MljV A ,L 7 RETRIEVE LSB 3A42 4t403C CALL Lt3YTX ; DISPLAY LSB of uiiFERENCE 3A45 444438 JMP START ; ; LOAD A bNPF 1'AFE INTX RAH PIEHQRY. 0 t ; THXX KUUTINE EXPECTS Th'0 HEXADECIKAL PARAK!ETERS AND ; LNTERPRETS 1'KEH AS bUUNL)S OF' A MEXjHY AREA IQ BE ; LOALiEL) bV i3hPi' DATX TU BE READ FRXX THE RIAUER. ; IT IS ASSUMEU THAT E!i0ljC,d DATA IX AVAIXXXXX IK TKE ; TAPE TO EsE RE,\D TO SATISFY THE MEHORY bQUtijS ENTERED. i ii END cir" TAPE IS ENCUX,NTUtED BLFORi TEIL' XE>!(JRY 13GUNDS ; ARE SXXXXX'ILD, THIS RUUTXXX nILL TERMINXXX UX AN ERROR } CCI.\'DITXX.4 (SEE RIX), 6UT ALL DATA READ BEFORE THE ENX } OF TAPE NA$ E:;CUUNTERU) XXXX XX XXXxXX. ; 3A48 LOAD: 3A48 468530 CALL EXPR ; GLT TwO ADDRESSES 3AxB 4KC3C CALL CRLF 3A4£ XXx: 3A4E qbFC3C CALL DECODE } CONVERT BNPF, RETURN LN C-REGISTER 3A5l C2 HOV A,C : CUNVERTED DATA BYTE 3A>2 4(JD43X CALL GEIAD 1 GU rlL, AND DE 3A55 FB HOV K,A ; STORE DXXX 3A56 4bE23D CALX HILO ; XXXX FOR X(J¥,PLETIxN 3Xxx 6U4438 JC START 3ASC 46x431 CALL SA'GIT 3A5F 444Xxx JKP LXx : : MOVE A BLOCK OF RAH MENCIRI' : 3AoZ 1'10VEi 3AtQ 1U INR C : GET TXXXX ADDRESSES 3A63 468530 CALL EXPR 3a66 HVO: 3A6b 4uo430 CALL GETAX 3Ao!B Cl XXX AM : GXX XXXX 3AtS 360C2E00 LXI X,ADR3 i GET DESTINATION ADXXXXX 3AoL XX'MOV B,M xA6x 3u LhR L 3A7U F7 MOV L,,x 3A /1 E9 KQV H,8 3AI2 F8 M0\ XX : STORE DATA 3Ai3 46F03j CALL INCHL ; INCREMEXX DESTINATION AXXXXXX 3Ai6 CD XUY 8,H 3A77 D6 MQV C,L 3A18 300Cx£Ci0 LXX H,ADR3 . xK1C F9P,QV M,B xA7D 30 INR L